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cAbbreviation - 1 

■ — Copyright 2001 by Robert L. J acnb son. 
Option Explicit 



Private mstrFullName As String 
Private mstrAbrvName As String 
Private mstrFullName Trim As String 
Private mstrAbrvName Trim As String 

Property Get FullNameO As String 

FullName = mstrFullName 
End Property 

Property Let FullName (By Val Source As String) 

mstrFullName = Source 

mstrFullNameTrim = SuperTrim( Source) 
End Property 

Property Get FullNameTrim( ) As String 

FullNameTrim = mstrFullNameTrim 
End Property 

Property Get AbrvNameO As String 

AbrvName = mstrAbrvName 
End Property 

Property Let AbrvName {By Val Source As String) 

mstrAbrvName = Source 

mstrAbrvName Trim = SuperTrim( Source} 
End Property 

Property Get AbrvNameTrimO As String 

AbrvNameTrim = mstrAbrvNameTrim 
End Property 

Public Function HasAbbreviation ( ) As Boolean 

If mstrFullName <> mstrAbrvName Then HasAbbreviation 
End Function 
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' — Copyright 2001 by Robert L. Jac*j 
Option Explicit 
Private mcolAbbreviations As Collection 

Public Enum bcAbbreviationType 

Table6 

TablelO 

All 
End Enum 

Private Sub Class_Initialize {) 

Set mcolAbbreviations = New Collection 
End Sub 

Public Function Count { ) As Long 

Count = mcolAbbreviations . Count 
End Function 

Public Function Item ( Index As Variant) As cAbbreviation 

Set Item = mcolAbbreviations . I tern ( Index) 
End Function 

Public Function NewEnumO As IUnknown 

Set NewEnum = mcolAbbreviations. [_NewEnum] 
End Function 

Public Sub LoadData (Source As bcAbbreviationType) 

If Source = Table6 Or Source = All Then 
Add "Administrative", "Admin." 
Add "Administration", "Admin." 
Add "Administrations", "Admins." 
Add "Administrator", "Adm'r" 
Add "Administrators", "Adm'rs" 
Add "Administratrix", "Adm'x" 
Add "Administratrixes", "Adm'xs" 
* Si Add "Advertising", "Adver." 
LJ Add "Agriculture", "Agric." 
.ij=% Add "Agricultural", "Argic . " 
^ Add "America", "Am." 
\l Add "Americas", "Ams." 

~ Add "American", "Am." 
%l Add "Americans", "Ams." 
;~ Add "Associate", "Assoc." 
Ml Add "Associates", "Assocs . " 
l.j. Add "Association", "Ass'n" 

Add "Associations", "Ass'ns" 
Add "Atlantic", "Atl." 
Add "Authority", "Auth." 
Add "Authorities", "Auths." 
Add "Automobile", "Auto." 
Add "Automobiles", "Autos." 
Add "Avenue", "Ave." 
Add "Avenues", "Aves." 
Add "Bankruptcy", "Bankr." 
Add "Bankruptcies", "Bankrs." 
Add "Board", "Bd." 
Add "Broadcast", "Broad." 
Add "Broadcasts", "Broads." 
Add "Broadcasting", "Broad." 
Add "Brotherhood", "Bhd." 
Add " Brotherhoods " , " Bhds . " 
Add "Brothers", "Bros." 
Add "Building", "Bldg." 
Add "Buildings", "Bldgs." 
Add "Business", "Bus." 
Add "Casualty", "Cas." 
Add "Center", "Ctr." 
Add "Centers", "Ctrs." 
Add "Centre", "Ctr." 
Add "Centres", "Ctrs." 
Add "Central", "Cent." 
Add "Chemical", "Chem. " 
Add "Chemicals", "Chems." 
Add "Commission", "Comm'n" 
Add "Commissioner", "Comm'r" 
Add "Committee", "Comm." 
Add "Committees", "Comms." 
Add "Company", "Co." 
Add "Companies", "Cos." 
Add "Consolidated", "Consol." 
Add "Construction", "Constr." 
Add "Cooperative", "Coop." 
Add "Cooperatives", "Coops." 
Add "Corporation", "Corp." 
Add "Corporation", "Corps." 
Add " Depa r t men t " , " Dep ' t " 
Add "Departments", "Dep'ts" 
Add "Developer", "Dev." 
Add "Development", "Dev." 
Add "Developers", "Devs." 
Add "Director", "Dir." 
Add "Directors", "Dirs. " 
Add "Distributor", "Distrib. " 
Add "Distributors", "Distribs." 
Add "Distributing", "Distrib." 
Add "District", "Dist." 
Add "Districts", "Dists." 
Add "Division", "Div. " 
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Add "Divisions", "Divs." 
Add "East" , "E. ■ 
Add "Eastern", "E." 
Add "Economic", "Econ," 
Add "Economical" , "Econ. " 
Add "Economy", "Econ. " 
Add "Economies" , "Econs. " 
Add "Education", "Educ." 
Add "Educational " , "Educ . " 
Add "Electric", "Elec." 
Add "Electrical" , "Elec. ■ 
Add "Electricity", "Elec." 
Add "Electronic" , "Elec. " 
Add "Electronics " , "Elecs . " 
Add "Engineer" , "Eng'r" 
Add "Engineers", "Eng'rs" 
Add "Engineering", "Eng'g" 
Add "Enterprise", "Enter." 
Add "Enterprises", "Enters." 
Add " Environment " , " Env 1 t " 
Add "Environments", "Env'ts" 
Add "Environmental", "Envtl. " 
Add "Equality", "Equal." 
Add ■ Equipment " , " Equip . " 
Add "Equipments", "Equips." 
Add " Examiner " , " Exam 1 r " 
Add " Examiners " , " Exam ' rs " 
Add H Exchange " , " Exch . " 
Add "Exchanges", "Exchs." 
Add " Executor " , " Ex ' r " 
Add "Executors", "Ex'rs" 
Add "Executrix", "Ex'x" 
Add "Executrixes", "Ex'xs" 
Add "Federal", "Fed." 
Add "Federation", "Fed'n" 
Add "Federations" , "Fed'ns" 
Add "Finance", "Fin." 
Add "Finances", "Fins." 
Add "Financial", "Fin." 
5t»J Add "Financing" , "Fin. " 
s|.f t Add "Foundation" , "Found. " 
Add "Foundations", "Founds." 
1 Add "General" , "Gen. " 
. Add "Generals", "Gens." 
\j Add "Guaranty", "Guar." 
i?5 Add "Guaranties", "Guars." 
*H Add "Hospital", "Hosp. " 
Add "Hospitals", "Hosps." 
Add "Housing", "Hous." 
Add " Incorporated" , " Inc . " 
Add " Indemni ty " , " Indem . " 
4M Add "Indemnities", "Indems." 
Add "Independent", "Indep." 
Add "Industry", "Indus." 
Add "Industries", "Indus." 
8 " Add "Industrial", "Indus." 



CO 
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Add "Information", "Info." 

Add "Institute", "Inst." 

Add "Institutes", "Insts." 

Add "Institution", "Inst." 

Add "Institutions", "Insts." 

Add " Insurance " , " Ins . " 

Add "International", "Int'l" 

Add "Internationals", "Int'ls 

Add " Investment " , " Inv . " 

Add " Inve s tmen t s " , " Inv . " 

Add "Laboratory", "Lab." 

Add "Laboratories", "Lab." 

Add "Liability", "Liab. • 

Add "Liabilities", "Liabs." 

Add "Limited", "Ltd." 

Add "Litigation", "Litig." 

Add "Machine", "Mach. " 

Add "Machines", "Machs." 

Add "Machinery", "Mach." 

Add "Manufacturer", "Mfr." 

Add "Manufacturers", "Mfrs." 

Add "Manufacturing", "Mfg." 

Add "Market" , "Mkt. " 

Add "Markets", "Mkts." 

Add "Marketing", "Mktg. " 

Add "Medical", "Med." 

Add "Medicine", "Med." 

Add "Medicines", "Meds." 

Add " Memor ial " , " Mem ' 1 " 

Add "Memorials", "Mem 1 Is" 

Add "Metropolitan", "Metro." 

Add "Municipal", "Mun." 

Add "Mutual", "Mut . " 

Add "National", "Nat'l" 

Add "North" , "N. " 

Add "Northern" , "N. " 

Add "Organization", "Org." 

Add "Organizations", "Orgs." 

Add "Organizing", "Org." 

Add "Pacific", "Pac." 

Add "Pharmaceutics", "Pharm. " 

Add " Pharmaceut ica 1 " , " Pharm . 

Add "Product", "Prod." 

Add " Products " , " Prods . " 

Add "Production", "Prod." 
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Prods . " 



• Productions " , " Prods . ' 
"Professional", "P^ 
"Professionals" , 
"Public" , "Pub." _ 
"Publishing", "Publ'g" 
"Railroad", " R . R . " 
"Railroads", "R.Rs." 
"Railway" , "Ry . " 
"Railways", "Rys." 
"Refining", "Ref." 
"Regional", "Reg'l" 
"Reproduction", "Reprod." 
"Reproductions" , "Reprods . " 
"Reproductive", "Reprod." 
"Road" , "Rd. " 
" Roads " , " Rds . " 
" Savings " , " Sav . " 
"School", "Sch." 
"Schools", "Sch." 
"Security", "Sec." 
"Securities", "Sec. " 
" Service " , " Serv . " 
" Services " , " Servs . " 
"Social", "Soc." 
"Socials", "Socs." 
"Society", "Soc'y" 
"Societies", "Soc'ys" 
"South" , "S. " 
"Southern", "S." 
"Steamship", "S.S." 
"Steamships" , "S.S. " 
"Street", "St." 
"Streets", "Sts." 
" Subcommi t tee " , " Subcomm . ■ 
" Subcommi t tees " , " Subcomms . " 
"Surety", "Sur." 
"Sureties", "Surs." 
"System", "Sys." 
"Systems", "Sys." 
"Technology", "Tech." 
"Technologies", "Techs." 
"Telecommunication" , "Telecomm, " 
"Telecommunications" , "Telecomms . 
"Telephone", "Tel." 
"Telephones", "Tels." 
"Telegraph" , "Tel . " 
"Telegraphs", "Tels." 
" Temporary " , " Temp " 
"Transcontinental", "Transcon. " 
" Transport " , " Tr ansp . " 
"Transports", "Transps." 
"Transportation", "Transp. " 
"Uniform", "Unif." 
"Uniforms", "Unifs." 
"University" , "Univ. " 
"Universities", "Univs." 
"Utility", "Util." 
"Utilities", "Utils." 
"West", "W." 
"Western" , "W. " 

**knd If 

3 . 

' If Source = TablelO Or Source = All Then 
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Add 




Add 




Add 




Add 








Add 








Add 
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$LJ 


Add 




AUU 


^- 1 


Add 


\ I 


Add 




Add 


r ? = 

~il 1 


Add 




Add 




Add 


r n 


Add 




Add 


! F- 


Add 




Add 




Add 




Add 




Add 


I |l 


Add 




Add 




Add 




Add 




Add 



Add "Alabama", "Ala." 

Add "Alaska", "Alaska" 

Add "American Samoa", "Am. Sam." 

Add "Arizona", "Ariz." 

Add "Arkansas", "Ark." 

Add "California", "Cal." 

Add "Canal Zone", "C.Z." 

Add "Colorado", "Colo." 

Add "Connecticut", "Conn." 

Add "Delaware", "Del." 

Add "District of Columbia", "D.C." 

Add "Florida", "Fla. " 

Add "Georgia", "Ga." 

Add "Guam" , "Guam" 

Add "Hawaii", "Haw." 

Add "Idaho", "Idaho" 

Add "Illinois", "111." 

Add "Indiana", "Ind." 

Add "Iowa", "Iowa" 

Add "Kansas", "Kan." 

Add " Kentucky " , " Ky . " 

Add "Los Angeles", "L.A. " 

Add "Louisiana", "La." 

Add "Maine", "Me." 

Add "Maryland", "Md." 

Add "Massachusetts", "Mass." 

Add "Michigan", "Mich." 

Add "Minnesota", "Minn." 

Add "Mississippi", "Miss." 

Add "Missouri", "Mo." 

Add "Montana", "Mont." 

Add "Nebraska", "Neb." 

Add "Nevada", "Nev." 

Add "New Hampshire", "N.H." 

Add "New Jersey", "N.J." 

Add "New Mexico", "N.M. " 
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Add 
Add 
Add 
Add 



"North Carolina", "N.C. 
"North Dakota" , "N.D. " I 
"Northern Mariana Islan* 



"New York" , "N. Y. " 





'N . Mar . I . " 



LI 




Add "Ohio", "Ohio" 

Add "Oklahoma", "Okla." 

Add "Oregon", "Or." 

Add " Pennsylvania " , " Pa . " 

Add "Philadelphia", "Phi la." 

Add "Puerto Rico", "P.R." 

Add "Rhode Island", "R.I." 

Add "South Carolina", "S.C." 

Add "South Dakota", "S.D." 

Add "Tennessee", "Term. " 

Add " Texas " , " Tex . " 

Add "Utah", "Utah" 

Add "Vermont" , "Vt. " 

Add "Virgin Islands", "V.I." 

Add "Virginia", "Va." 

Add "Washington" , "Wash. " 

Add "West Virginia", "W. Va." 

Add "Wisconsin", "Wis." 

Add "Wyoming", "Wyo." 

Add "New South Wales", "N.S.W." 

Add "Queensland", "Queensl." 

Add "South Australia", "S. Austrl." 

Add "Tasmania", "Tas." 

Add "Victoria", "Vict." 

Add "West Australia", "W. Austrl." 

Add "Alberta", "Alta." 

Add "British Columbia", "B.S." 

Add "Manitoba " , " Man . " 

Add "New Brunswick", "N.B." 

Add "Newfoundland", "Nfld. " 

Add "Northwest Territories", "N.W.T." 

Add "Nova Scotia", "N.S." 

Add "Ontario", "Ont." 

Add "Prince Edward Island", "P.E.I" 

Add "Quebec", "Que." 

Add "Saskatchewan", "Sask." 

Add " Yukon " , " Yuo kn " 

Add "Afghanistan", "Afg." 

Add "Africa", "Afr." 

Add "Albania", "Alb." 

Add "Algeria", "Alg." 

Add "Andorra", "Andorra" 

Add "Angola", "Angl . " 

Add "Anguilla" , "Anguilla" 

Add "Antigua & Barbuda", "Ant. & Barb." 

Add "Argentina", "Arg." 

Add "Armenia", "Arm." 

Add "Australia", "Austl." 

Add "Austria", "Aus." 

Add "Azerbaijan", "Azer . " 

Add "Bahamas", "Bah." 

Add "Bahrain", "Bahr." 

Add "Bangladesh", "Bangl." 

Add " Barbados " , " Barb . " 

Add "Belarus", "Belr." 

Add "Belgium", "Belg." 

Add "Belize", "Belize" 

Add "Benin", "Benin" 

Add "Bermuda", "Berm. " 

Add " Bhu t an " , " Bhu t an " 

Add "Bolivia", "Bol." 

Add "Bosnia & Herzegovina", "Bosn. & Herz . " 

Add "Botswana", "Bots." 

Add "Brazil", "Braz." 

Add "Brunei", "Brunei" 

Add "Bulgaria", "Bulg. " 

Add "Burkina Faso", "Burk. Faso" 

Add " Burundi " , " Burundi " 

Add "Cambodia", "Cambodia" 

Add "Cameroon", "Cameroon" 

Add "Canada", "Can." 

Add "Cape Verde", "Cape Verde" 

Add "Cayman Islands", "Cayman Is." 

Add "Central African Republic", "Cent. Afr. Rep. 

Add "Chad", "Chad" 

Add "Chile", "Chile" 

Add "People's Republic of China", "P.R.C." 

Add "Colombia", "Colom. " 

Add "Comoros", "Comoros" 

Add "Congo", "Congo" 

Add "Costa Rica", "Costa Rica" 

Add "C6te d'lvoire", "C6te d'lvoire" 

Add "Croatia", "Croat." 

Add "Cuba", "Cuba" 

Add "Cyprus", "Cyprus" 

Add "Czech Republic", "Czech Rep." 

Add "Denmark", "Den." 

Add "Djibouti", "Djib." 

Add "Dominica", "Dominica" 

Add "Dominican Republic", "Dom. Rep." 

Add "Ecuador", "Ecuador" 

Add "Egypt", "Egypt" 

Add "El Salvador", "El Sal." 

Add "England", "Eng." 

Add "Equatorial Guinea", "Eq. Guinea" 

Add "Eritrea", "Eri." 

Add "Estonia", "Est." 
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Add "Ethiopia", "Eth. 
Add "Europe", "Eur. " i 
Add "Falkland Island^^^Balkland Is. 

Add "Fiji", "Fiji" 
Add "Finland", "Fin. " 
Add "France", "Fr." 
Add "Cabon", "Gabon" 
Add "Gambia", "Gam." 
Add "Georgia", "Geor." 
Add " Germany" , " F . R . G . " 

Add "Federal Republic of Germany", "F.R.G. 
Add "Ghana", "Ghana" 
Add "Gilbraltar" , "Gib." 
Add "Great Britain", "Gr. Brit." 
Add "Greece", "Greece" 
Add "Grenada", "Gren." 
Add "Guatemala", "Guat." 
Add "Guinea", "Guinea" 
Add "Guinea-Bissau", "Guinea-Bissau" 
Add H Guyana " , " Guy . " 
Add "Haiti", "Haiti" 
Add "Honduras", "Hond." 
Add "Hong Kong", " H , K . " 
Add "Hungary", "Hung." 
Add "Iceland", "Ice." 
Add "India", "India" 
Add "Indonesia", "Indon." 
Add "Iran", "Iran" 
Add "Iraq", "Iraq" 
Add "Ireland" , "Ir . " 
Add "Israel", "I sr." 
Add "Italy", "Italy" 
Add "Jamaica", "Jam." 
Add "Japan", "Japan" 
Add "Jordan", "Jordan" 
Add "Kazakhstan", "Kaz." 
Add "Kenya", "Kenya" 
Add "Kiribati", "Kiribati" 
=. Add " Kuwa it", " Kuwa i t " 
Add "Kyrgyzstan" , "Kyrg." 
tlFi Add "Laos", "Laos" 
} h \ Add "Latvia", "Lat." 
%j Add "Lebanon", "Leb. " 

Add "Lesotho", "Lesotho" 
*•= Add "Liberia", "Liber." 
I Add "Libya", "Libya" 
" Add "Liechtenstein", "Liech. " 
h'~ Add "Lituania", "Lith. u 
i p .& Add "Macedonia", "Maced." 

Add "Madagascar", "Madag." 
If- Add "Malawi", "Malawi" 

Add "Malaysia", "Malay." 
e Add "Maldives", "Maldives" 
L. Add "Mali", "Mali" 
O Add "Malta", "Malta" 
5*1= Add "Marshall Islands", "Marsh. Is." 
HI Add "Mauritania", "Mauritania" 
Add "Mauritius", "Mauritius" 
Add "Mexico", "Mex. " 



M 

hs'= Add "Micronesia", "Micr." 
^-i Add "Moldova", "Mold." 

Add "Monaco", "Monaco" 
l_i Add "Mongolia", "Mong." 

Add "Montserrat" , "Montserrat" 

Add "Morocco", "Morocco" 

Add "Mozanbique" , "Mozam. " 

Add " Myanma r" , "My an." 

Add "Namibia", "Namib. " 

Add "Mauru", "Mauru" 

Add " Nepa 1 " , "Nepal" 

Add "Netherlands", "Neth." 

Add "New Zealand", "N.Z." 

Add "Nicaragua", "Nicar." 

Add "Niger", "Niger" 

Add "Nigeria", "Nig." 

Add "North America" , "N. Am. " 

Add "Northern Ireland", "N. Ir." 

Add "North Korea", "N. Korea" 

Add "Norway", "Nor." 

Add " Oman " , " Oman " 

Add "Pakistan", "Pak." 

Add " Panama " , " Pan . " 

Add " Papua New Guinea " , " Papua N . G . " 

Add "Paraguay", "Para." 

Add " Peru " , " Peru " 

Add "Philippines", "Phil." 

Add "Pitcairn Island", "Pitcairn Is." 

Add "Poland", "Pol." 

Add "Portugal", "Port." 

Add "Qatar", "Qatar" 

Add "Romania", "Rom." 

Add "Russia", "Russ." 

Add " Rwanda " , " Rwanda " 

Add "St. Kitts & Nevis", "St. Kitts & Nevis" 
Add "St. Helena", "St. Helena" 
Add "St. Lucia", "St. Lucia" 

Add "St. Vincent & the Grenadines", "St. Vincent" 
Add "San Marino", "San Marino" 

Add "Sao Tome and Principe", "S3o Tome* & Principe" 
Add "Saudi Arabia", "Saudi Arabia" 
Add "Scotland", "Scot." 
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Add "Senegal", "Sen." 

Add "Seychelles", "Sey. " 

Add "Sierra Leone", "Sierra 

Add "Singapore", "Sing." 

Add "Slovakia", "Slovk." 

Add "Slovenia", "Slovn." 

Add "Solomo Islands", "Solom. Is." 

Add "Somalia", "Somal." 

Add "South Africa" , "S. Af r . - 

Add "South Korea", "S. Korea" 

Add "Spain", "Spain" 

Add "Sri Lanka", "Sri Lanka" 

Add " Sudan M , " Sudan " 

Add "Suriname" , "Surin." 

Add "Swaziland", "Swaz. " 

Add " Sweden " , " Swed . " 

Add "Switzerland", "Switz." 

Add "Syria", "Syria" 

Add "Taiwan" , "Taiwan" 

Add "Tajikistan", "Taj." 

Add "Thailand" , "Thail." 

Add " Togo " , " Togo " 

Add "Tonga", "Tonga" 

Add "Trinidad and Tobago", "Trin. & Tobago" 

Add " Tuni s i a " , " Tuni s . " 

Add " Turkey " , " Turk . " 

Add "Turkmenistan", "Turkm." 

Add "Turks and Caicos Islands", "Turks & Caicos Is. 

Add " Tuva 1 u " , " Tuva 1 u " 

Add " Uganda " , " Uganda " 

Add "Ukraine" , "Ukr. " 

Add "United Arab Emirates", "U.A.E." 

Add "United Kingdom", "U.K." 

Add "United States", "U.S." 

Add "Uruguay", "Uru." 

Add "Uzbekistan", "Uzb. " 

Add "Vanuatu", "Vanuatu" 

Add "Vatican City", "Vatican" 

iss. Add "Venezuela", "Venez." 

Add "Vietnam" , "Vietnam" 

,if\ Add "Brittish Virgin Islands", "Virgin Is." 

^ Add "Wales", "Wales" 

Add "Western Samoa", "W. Samoa" 

. m Add "Yemen", "Yemen" 

\i Add "Yugoslavia", "Yugo." 

Add "Zaire", "Zaire" 

= Add "Zambia", "Zambia" 

i„v. Add " Zimbabwe " , " Z imb . " 



ft** 



if 
EndiSub 

Frifnd Sub Add(FullName As String, AbrvName As String, Optional ByVal Key As Variant) 
JSim bcAbbrNew As cAbbreviation 

~%£et bcAbbrNew = New cAbbreviation 
ygith bcAbbrNew 

.FullName = FullName 
f ? = .AbrvName = AbrvName 
rind With 

^colAbbreviations.Add bcAbbrNew, Key 



End Sub 
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'-- Copyright 2001 by Robert L. Jacobson. 
Option Explicit 

Private mmswOriginalSelection As Word. Range 

Public Sub Start () 

Dim bcCitationBuilder As cCitationBuilder 
* Dim bcTimer As New cTimer 
Dim lngStartFrom As Long 

If f Opt ions. ForCourt = "" Then 
Call ShowOptions 

If f Options .ForCourt = "" Then Exit Sub 
End If 

Set ErrorForm - New cErrorForm 

Set mmswOriginalSelection = Word. Selection . Range 
Set ActiveDoc = New cDocument 

Call ActiveDoc. Initialize (Word . ActiveDocument) 
lngStartFrom = 1 
StartOver : 

ErrorForm. Result = None 



Set bcCitationBuilder = New cCitationBuilder 

Set Citation = bcCitationBuilder .NextCi tat ionFromWord (lngStartFrom) 
Do While Not (Citation Is Nothing) 
Call CheckCaseName 

If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 
*af Call CheckReporter 



If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 



\j Call CheckEditor 

!. ; If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 

=55 Call CheckJurAndCourt 

- ? - If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 

s . 

i Ja> Call CheckParallelReporters 

m If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 



4= 



til 



Call CheckDate 

If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 
Call CheckClauseOrder 

If ErrorForm. Result = Cancel Then GoTo Cancel Else If ErrorForm. Result = Change Then GoTo StartOver 



f*\ lngStartFrom = Citation .CitationEnd + 1 

Set Citation = bcCitationBuilder .NextCi tat ionFromWord (lngStartFrom) 

i-Loop 



Call EndBlueCheck 
End Sub 

Public Sub ShowOptions ( ) 

f Opt ions . Show vbModal 
End Sub 

Public Sub EndBlueCheck ( ) 

Dim strNumberOf Changes As String 

ErrorForm . Hide 

If Not ErrorForm. Result = Cancel Then 
Select Case ErrorForm. ChangesMade 
Case Is = 0 

strNumberOfChanges = "No changes were made." 
Case Is < 13 

strNumberOfChanges = Choose (ErrorForm. ChangesMade, "One change was made.", "Two changes were made.", "Three changes were ma 
de.", "Four changes were made.", "Five changes were made.", "Six changes were made.", "Seven changes were made.", "Eight changes were made. 
", "Nine changes were made.", "Ten changes were made.", "Eleven changes were made.", "Twelve changes were made.") 
Case Else 

StrNumberOfChanges = ErrorForm. ChangesMade & " changes were made." 
End Select 

Call MsgBox ( "BlueCheck has finished checking this document. " & strNumberOfChanges, vblnformation, "BlueCheck") 
End If 



mmswOriginalSelection. Select 



CI ipboard . Clear 

Set ErrorForm = Nothing 
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Set ActiveDoc = Nothing 
Set Citation = Nothing 
Call CloseAllHiddenDocume 

End Sub 

Private Sub Class_Initialize ( ) 

If AbrvsTablelO Is Nothing Then 

Set AbrvsTablelO = New cAbbreviations 
AbrvsTablelO. LoadData TablelO 

End If 

If AbrvsTable6 Is Nothing Then 

Set AbrvsTable6 = New cAbbreviations 
Abrvs Table 6. LoadData Table6 

End If 

If AbrvsAll Is Nothing Then 

Set AbrvsAll = New cAbbreviations 
AbrvsAll . LoadData All 

End If 

End Sub 

Private Sub Class_Terminate ( ) 

Jurisdictions .Cleanup 

Set Jurisdictions = Nothing 

End Sub 




in 
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' — Copyright 2001 by Robert L. Jambson 

Option Explicit ^^^B 

Private mlngChangesMade As Long 

Private mbcBluebookRules As cMessages 
Private mbcErrorMessages As cMessages 

Private mstrErrorText As String 

Private mstrErrorKey As String 

Private mlngHighlightStart As Long 

Private ml ngHigh light End As Long 

Private mbolErrorDisplayed As Boolean 
Private mcolIgnoreRuleList As Collection 

Private mbcSuggestion As cSuggestion 
Private mfErrorForm As fErrorForm 

Friend Property Get Suggestion () As cSuggestion 

Set Suggestion = mbcSuggestion 
End Property 

Friend Property Get Result () As bcButtonPress 

Result = mfErrorForm. Result 
End Property 

■ Friend Property Let Result (Source As bcButtonPress) 

mfErrorForm. Result - Source 
- End Property 

Friend Property Get ChangesMade ( ) As Long 

Change sMade = mlngChangesMade 
End Property 

Friend Sub HideO 

mfErrorForm . Hide 
End Sub 

Public£LSub LoadErrorf ByVal ErrorKey As String, ByVal Highlights tart As Long, ByVal HighlightEnd As Long, _ 

Optional ByVal AAA As String, Optional ByVal BBB As String, Optional ByVal CCC As String, Optional ByVal DDD As String) 

%! 

If'=Not { Ac tiveDoc. Words .WordsTrim( HighlightEnd) - " " ) Then 

\l If Ac tiveDoc. Words. SpacesAfterWord( HighlightEnd) = 0 And Ac tiveDoc .Words (HighlightEnd + 1) = "." Then HighlightEnd = HighlightEnd + 

ill if 

Load the module-level variables that will be used later. 
rf||>lErrorDisplayed = False 
mjhgHighlight Start = HighlightStart 
ra|agHighlightEnd = HighlightEnd 
mstrErrorKey = ErrorKey 

f^'f Load the error message and insert the AAA, BBB, CCC and DDDD information into it. 

i|§JrErrorText = mbcErrorMessages . Item (ErrorKey) .MessageText 

I ii AAA <> ■" Then mstrErrorText = Replace (mstrErrorText , "AAA", AAA) 

3tfL BBB <> "" Then mstrErrorText = Replace (mstrErrorText , "BBB", BBB) 

£&=CCC <> "" Then mstrErrorText = Replace (mstrErrorText , "CCC", CCC) 

If DDD <> "" Then mstrErrorText = Replace (mstrErrorText , "DDD", DDD) 

£fr Reset the suggestion 

Call mbcSuggestion . Reset (Citation. CitationStart , Citation. CitationEnd) 
End Sub 

Public Function IgnoreError ( ) As Boolean 

Dim varErrorKey As Variant 

Dim strTruncatedErrorKey As String 




strTruncatedErrorKey = TruncatedErrorKey (mstrErrorKey) 
For Each varErrorKey In mcolIgnoreRuleList 

If varErrorKey = strTruncatedErrorKey Then 
IgnoreError = True 
Exit Function 
End If 
Next varErrorKey 

End Function 

• Public Sub DisplaySuggestionO 

With mfErrorForm 

Call . AddSuggestion (mbcSuggestion . RTFNormal , mbcSuggestion. RTFHighlight) 
If mbolErrorDisplayed = False Then Call DisplayError 

End With 

' — Reset the suggestion 

Call mbcSuggestion .Reset (Citation. CitationStart , Citation. CitationEnd) 
End Sub 

Private Sub DisplayError ( ) 

Dim strReplacementText As String 
Dim strOriginal As String 
Dim strNormalRTF As String 
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Dim strHighlightRTF As String 
Dim strRuleKey As String 



*-- Select the citation in the 
ActiveDoc .Words. Range (Citation 

' -- Highlight the citation and display it. 

strNormalRTF = ActiveDoc. Words. TextRTF (Citation. CitationStart, Citation. CitationEnd) 
strHighlightRTF = HighlightRTF {ActiveDoc, strNormalRTF, mlngHighlightStart , mlngHighlightEnd) 
Call mfErrorForm. AddCitation (strNormalRTF, strHighlightRTF) 

'-- Substitute the "ORIGINAL" fields in the error message with the modified text. 
If InStrd, mstrErrorText, "ORIGINAL" , vbBinaryCompare) Then 

strReplacementText = ActiveDoc .Words (mlngHighlightStart , mlngHighlightEnd) 

strReplacementText = FilterText (strReplacementText , "the", "the") 

mstrErrorText = Replace (mstrErrorText, "ORIGINAL" , strReplacementText) 
End If 

'-- Substitute the "SUGGESTION" fields in the error message with the modified text. 
If InStrd, mstrErrorText, "SUGGESTION", vbBinaryCompare) Then 

strReplacementText = FilterText (mbcSuggest ion. SuggestionText, "a", "an") 

mstrErrorText = Replace (mstrErrorText , "SUGGESTION", strReplacementText) 
End If 

' -- Convert the first character of the error message to upper case, and then display the error message. 
mstrErrorText = Trim$ (mstrErrorText ) 

mstrErrorText = UCase$ (Left$ (mstrErrorText , 1)) & Right$ (mstrErrorText , Len (mstrErrorText ) - 1) 
mfErrorForm. txtErrorMessage .Text = mstrErrorText 

■ — Display the rule associated with this rule. 
strRuleKey = mbcErrorMessages . Item(mstrErrorKey) . RuleKey 
If strRuleKey = "T.l" Then 

If Not (Citation. Jurisdiction Is Nothing) Then 
If Not (Citation . Court Is Nothing) Then 

strRuleKey = "T.l: " & Citation. Jurisdiction & " " & Citation . Court . CourtGroup . FullNante 

Else 

strRuleKey = " " 
End If 
t*% End If 

^fjNot (strRuleKey = "") Then mfErrorForm. rtfRule = mbcBluebookRules . Item (strRuleKey) . MessageText 
ml6e» 1 Err orDi splayed = True 
End §y|> 

i. £ r 

Private Function FilterText (ByVal SourceText As String, ByVal ArticleOne As String, ByVal ArticleTwo As String) As Stri 
SwrceText = Trim$ (SourceText) 
~££Z Len (Trim$ (SourceText) ) = 1 Then 



" open parenthesis" 

" close parenthesis" 

" open bracket" 

" close bracket" 

" period" 

" comma " 

" open question mark" 

" semicolon" 

" colon" 

" quotation mark" 

" apostrophe" 

" hyphen " 

SourceText & bcDBLQUOTE 



Else 

FilterText = bcDBLQUOTE & SourceText & bcDBLQUOTE 
End If 

End Function 

Public Sub Activate () 

If mbcSuggest ion. IsDirty Then Call DisplaySuggestion 
If mbolErrorDisplayed = False Then Call DisplayError 

With mfErrorForm 

Call . PrepareData 

. cmdCancel . Enabled = True 

. cmdlgnore . Enabled = True 

. cmdlgnoreRule . Enabled = True 

.cmdChange. Enabled = True 

. cmdChange . SetFocus 

. cmdChange . Enabled = False 



original word document, 

.CitationStart, Citation . CitationEnd) .Select 



Select Case SourceText 



ru 

I 



Case 








FilterText 




ArticleTwo 


& 


Case " ) " 








FilterText 




ArticleOne 


& 


Case " [ " 








FilterText 




ArticleTwo 


& 


Case " ] " 








FilterText 




ArticleOne 


& 


Case " . " 








FilterText 




ArticleOne 


& 


Case " , " 








FilterText 




ArticleOne 


& 


Case " ( " 








FilterText 




ArticleTwo 


& 


Case " ; " 








FilterText 




ArticleOne 


& 


Case " : " 








FilterText 




ArticleOne 


& 


Case bcDBLQUOTE 






FilterText 




ArticleOne 


& 


Case " ' " 








FilterText 




ArticleTwo 


& 


Case 








FilterText 




ArticleOne 


& 


Case Else 








FilterText 




bcDBLQUOTE 


& 



End Select 
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Call .MakeModal 
End With 

Call ProcessResults 
. End Sub 
Private Sub ProcessResults ( ) 
Dim strTruncatedErrorKey 



Select Case mf ErrorForm. Result 
Case Is = Change 

ActiveDoc .Words . TextRTF {Citation . Citations tart , Citation . CitationEnd) = mf ErrorForm. SelectedChangeRTF 
mlngChangesMade = mlngChangesMade + 1 

Case Is = IgnoreRule 

mcolIgnoreRuleList . Add TruncatedErrorKey (mstrErrorKey) 

End Select 

End Sub 

Private Sub Class_Initialize ( ) 

Set mbcBluebookRules = New cMessages 

Call mbcBluebookRules . OpenFile ( "Bluebook Rules") 

Set mbcErrorMes sages = New cMessages 

Call mbcErrorMessages . OpenFile ( "Error Messages") 

Set mcolIgnoreRuleList = New Collection 

Set mbcSuggestion = New cSuggestion 
Set mfErrorForm = New fErrorForm 
Load mfErrorForm 

End s|yf 

Priva^ Sub Class_Terminate ( ) 

Unload mfErrorForm 

S%if mfErrorForm = Nothing 

End 

Private Function HighlightRTF (ByRef SourceDocument As cDocument, ByVal SourceRTF As String, ByVal FirstWord As Long, 
ByVa^r^astWord As Long) As String 

pj£m bcRichText As New cRichText 
Dim IngFirstChar As Long 
Bam IngLastChar As Long 
IngCharOf f set As Long 

Jf:, LastWord < FirstWord _ 
&rj FirstWord = 0 _ 
G>r : LastWord = 0 Then 

HighlightRTF = SourceRTF 
f 5a = Exit Function 
ffid If 
=«= 

if SourceDocument Is ActiveDoc Then IngCharOf f set = Ac tiveDoc . Words . FirstChar (Citation . CitationStart) - 1 

IngFirstChar = SourceDocument .Words . FirstChar (FirstWord) - IngCharOf f set 
IngLastChar = SourceDocument. Words. LastChar( LastWord) - IngCharOf f set 

With bcRichText 

. TextRTF = SourceRTF 

. SelStart = IngFirstChar 

. SelLength = IngLastChar - IngFirstChar 

.SelColor = wdColorRed 

HighlightRTF = .TextRTF 
End With 

End Function 

Private Function TruncatedErrorKey (ErrorKey As String) As String 

If IsNumeric (Right$ (mstrErrorKey, 1)) Then 

TruncatedErrorKey = Trim$ (Left$ (mstrErrorKey , Len(ErrorKey) - 1)) 

Else 

TruncatedErrorKey = mstrErrorKey 
End If 




End Function 
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'-- Copyright 2001 by 

Option Explicit 

Public MessageName 
Public MessageText 
Public RuleKey 



Robert L. Jacobson. 
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' -- Copyright 2001 by Robert L. Jacobs 
Option Explicit 



Private mcol Items As Collection 
Private mstrFileName As String 

Private Const FILE_PATH As String = "C:\BlueCheck\Data\" 

Friend Function I tern (Index As Variant) As cMessage 

Set Item = mcolltems (Index) 
End Function 



Friend Sub Add (Item As cMessage, Optional Before, Optional After) 

mcolltems. Add Item, Item. MessageName, Before, After 
End Sub 



Friend Sub Remove (Index) 

mcolltems . Remove ( Index) 
End Sub 



Friend Property Get FileName () As String 

FileName = mstrFileName 
End Property 

Public Function NewEnumO As IUnknown 
Set NewEnum = mcolltems. [_NewEnum] 
End Function 

Friend Sub OpenFile (FileName As String) 

Dim IngFileNumber As Long 
Dim bcMessage As cMessage 
Dim strMessageName As String 
Dim strMessageText As String 
Dim strRuleKey As String 



mstrFileName = FileName 

Set mcolltems = New Collection 

lr^gFileNumber = FreeFile 

Gfe$n FILE_PATH & mstrFileName & ".txt" For Input As IngFileNumber 

\l Line Input # IngFileNumber, strMessageName 
s a a Line Input # IngFileNumber, strMessageText 
ill Line Input # IngFileNumber , strRuleKey 

• Set bcMessage = New cMessage 

f(\ With bcMessage 

tf* .MessageName = strMessageName 

4p .MessageText = strMessageText 

.RuleKey = strRuleKey 

- End With 

i*\ mcolltems .Add bcMessage, bcMessage .MessageName 

fflpp Until EOF (IngFileNumber) 
Qipse IngFileNumber 
4s£r FileName = FileName 

End tub 

FrieSfi"" Sub SaveFileO 

Dim IngFileNumber As Long 
Dim bcMessage As cMessage 



IngFileNumber = FreeFile 

Open FILE_PATH & mstrFileName & ".txt" For Output As IngFileNumber 



For Each bcMessage In mcolltems 
With bcMessage 

Print # IngFileNumber, .MessageName 

Print # IngFileNumber, Replace ( .MessageText , vbCrLf, 
Print # IngFileNumber , .RuleKey 
End With 
Next bcMessage 

Close IngFileNumber 
Call MsgBox ( " Save complete. M , 



" ") 



vbOKOnly, "Save complete") 



End Sub 
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Copyright 2001 by Robert L^^Jacobson. 
Option Explicit 



t ^^j^ cob son. ^^^^ 



Private mlngSuggestionO As Long 
Private mbol Highlight ( ) As Boolean 

Private mbcSuggestion As cDocument 
Private mlngFirstWord As Long 
Private mlngLastWord As Long 

Private mstrSuggestion As String 
Private mbolIsDirty As Boolean 

Private Const DELETED As Long = -100000000 

Private Sub Class_Initialize ( ) 

Set mbcSuggestion = New cDocument 
Call mbcSuggestion. Initialize 

End Sub 

Friend Property Get IsDirtyO As Boolean 

IsDirty = mbolIsDirty 
End Property 

Friend Property Get Suggest ionText { ) As String 

SuggestionText = mstrSuggestion 
End Property 

Friend Sub Reset (ByVal FirstWord As Long, ByVal LastWord As Long) 

Dim i As Long 

Dim IngOffset As Long 



mlngFirstWord = FirstWord 
mlngLastWord = LastWord 
ifts|rSuggestion = 

Rla©im mlngSuggestion (mlngFirstWord To mlngLastWord) 
ftejpim mbolHighlight (mlngFirstWord To mlngLastWord) 

^cSuggestion. Range. Forma ttedText = ActiveDoc .Words .Range (mlngFirstWord, mlngLastWord) . FormattedText 

ri^l Suggest ion. Forma ttedText = ActiveDoc .Words . Range (mlngFirstWord, mlngLastWord) 

FiTgOffset = Citation . CitationStart - 1 

i = mlngFirstWord To mlngLastWord 
tgl mlngSuggestion (i) = i - IngOffset 
tifykt i 

^Tall DebugPrintWords 
itfB$>llsDirty = False 

End iM> 

Frie*5|Sub Change (ByVal FirstWord As Long, ByVal LastWord As Long, ByVal Replacement Text As String) 

r : 

Sim IngFirstWord As Long 

£fim IngLastWord As Long 

jjfm IngFormerWordCount As Long 

©iin IngOffset As Long 

Dim i As Long 



IngFormerWordCount = mbcSuggestion. Words. Count 
IngFirstWord = mlngSuggestion (FirstWord) 
IngLastWord = mlngSuggestion (LastWord) 

If mstrSuggestion = " " Then mstrSuggestion = Replacement Text 

1 -- If the word before the change start is a punctuation mark, and the change begins with the same punctuation mark, then 
delete the first punctuation mark when making the change. 

If mbcSuggestion. Words (IngFirstWord - 1) = Lef t$ (Trim$ (ReplacementText ) , 1) Then 

IngFirstWord = IngFirstWord - 1 
End If 

' — If the word after the change end is a punctuation mark, and the change ends with the same punctuation mark, then 
' delete the later punctuation mark when making the change. 

If mbcSuggestion. Words (IngLastWord + 1) = Right$ (Trim$ (ReplacementText ) , 1) Then 

IngLastWord = IngLastWord + 1 
End If 

'-- Change the suggestion. 

mbcSuggestion. Words. Highlight (IngFirstWord, IngLastWord) = True 
mbcSuggestion. Words ( IngFirstWord, IngLastWord) = ReplacementText 

' -- Update the offset count. 

IngOffset = IngFormerWordCount - mbcSuggestion. Words .Count 
If IngOffset > 0 Then 

' — The new suggestion is shorter than the old suggestion. 

For i = LastWord - IngOffset + 1 To LastWord 
mlngSuggestion (i) = DELETED 

Next i 

For i = LastWord + 1 To mlngLastWord 

mlngSuggestion (i) = mlngSuggestion (i) - IngOffset 



cSuggestion - 2 
Next i 

Elself IngOffset < 0 Then 

— The new suggestion is ^^^Hr than the old suggestion ^^^B 

For i = LastWord + 1 To mlSHEtWord 

mlngSuggestion (i) = mlngSuggestion ( i> - IngOffset 
Next i 
End If 

' Call DebugPrintWords 
mbolIsDirty = True 

End Sub 

Friend Sub Delete (ByVal FirstWord As Long, ByVal LastWord As Long) 

Dim IngFirstWord As Long 

Dim IngLastWord As Long 

Dim IngOffset As Long 

Dim strSurroundingText As String 

Dim i As Long 
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If Not ( Ac tiveDoc. Words .WordsTrim( LastWord) = "") Then 

If Ac tiveDoc .Words . SpacesAf terWord{ LastWord) = 0 And Act iveDoc .Words (LastWord + 1) = "." Then LastWord = LastWord + 1 
End If 

If mstrSuggestion = " " Then mstrSuggestion = Act iveDoc .Words (FirstWord, LastWord) 
IngFirstWord = mlngSuggestion (FirstWord) 
IngLastWord = mlngSuggestion (LastWord) 

'-- If the deletion will create an improper combination of punctuation after the words are deleted, then expand the range 
of words to delete to delete one of the improper characters. 

strSurroundingText = mbcSuggestion. Words (IngFirstWord - 1) & mbcSuggest ion .Words (IngLastWord + 1) 

Select Case strSurroundingText 
Case " ) , " , " ( , " , " , . " , 

IngLastWord - IngLastWord + 1 
Case " , , " , " , ( " , " , ) " 

IngFirstWord = IngFirstWord - 1 
*;f Case " ( ) " 

IngFirstWord = IngFirstWord - 1 
w '. IngLastWord = IngLastWord + 1 

E3l4 Select 

' — Delete the words in the suggestion. 

C^fl mbcSuggestion. Words .Delete (IngFirstWord, IngLastWord) 

Update the offset count. 

lijfgOffset = IngLastWord - IngFirstWord + 1 
Ft§f i = FirstWord To LastWord 
S mlngSuggestion (i ) = DELETED 
Next i 

E&l i = LastWord + 1 To mlngLastWord 
fit mlngSuggestion (i ) = mlngSuggestion(i) - IngOffset 
tfext i 

;€lall DebugPrintWords 
ipbbllsDirty = True 

End &al> 

FriencfSub Insert (ByVal insertBef oreWord As Long, ByVal TextTolnsert As String) 

Dim InglnsertBeforeWord As Long 
Dim IngFormerWordCount As Long 
Dim IngOffset As Long 
Dim i As Long 

Dim strPriorWord As String 
Dim strNextWord As String 



IngFormerWordCount = mbcSuggestion. Words . Count 
If InsertBef oreWord > UBound (mlngSuggestion) Then 

InglnsertBeforeWord = mlngSuggestion (UBound (mlngSuggestion) ) + 1 

Else 

InglnsertBeforeWord = mlngSuggestion (InsertBef oreWord) 
End If 

If mstrSuggestion = " " Then mstrSuggestion = TextTolnsert 

If Left$ (TextTolnsert , 1) = "(" Then 

strPriorWord = mbcSuggestion. Words ( InglnsertBeforeWord 
If strPriorWord = " , " Then 

Call Change (InsertBe foreword - 1, InsertBef oreWord 
Exit Sub 
End If 
End If 

If Right$ (TextTolnsert, 1) = " , " Then 

strNextWord = mbcSuggestion. Words ( InglnsertBeforeWord) 

If strNextWord = "(" Or strNextWord = " , " Then 

TextTolnsert = Left$ (TextTolnsert , Len(TextToInsert) - 1) 

End If 
End If 

' — Insert the text in the suggestion. 

Call mbcSuggest ion. Words. Insert (InglnsertBeforeWord, TextTolnsert) 
IngOffset = IngFormerWordCount - mbcSuggestion .Words . Count 



- 1) 

- 1, TextTolnsert) 



cSuggestion - 3 

mbcSugges t ion. Words. Highl ight ( lncjInsert^^^reWord, IngOffset) = True 

' -- Update the offset count. 

For i = InsertBeforeWord To mlngLastWord 

mlngSuggestion (i) = mlngSuggestion (i ) - IngOffset 
Next i 

Call DebugPrintWords 
mbolIsDirty = True 

End Sub 

Friend Sub Transpose (ByVal FirstWord As Long, ByVal LastWord As Long, ByVal InsertBeforeWord As Long) 

Dim strTextToTranspose As String 
Dim strSurroundingText As String 

strSurroundingText = Ac tiveDoc .Words (FirstWord - 1) & Act iveDoc .Words (LastWord + 1) 
Select Case strSurroundingText 
Case " ( ) " 

FirstWord = FirstWord - 1 

LastWord = LastWord + 1 
End Select 

StrTextToTranspose = Ac tiveDoc .Words (FirstWord, LastWord) 

If mstrSuggestion = "" Then mstrSuggestion = strTextToTranspose 

Call Delete (FirstWord, LastWord) 

Call Insert (InsertBeforeWord, strTextToTranspose) 
mbolIsDirty = True 
End Sub 

Private Sub DebugPrintWords ( ) 
Dim i As Long 
D^pug. Print 

F<>£ i = mlngFirstWord To mlngLastWord 

If mlngSuggestion(i) <> DELETED Then 
^ = Debug. Print i & " : ", ActiveDoc. Words (i ) , mbc Suggest ion .Words (mlngSuggestion (i) ) 
. Else 

Si Debug. Print it": ", ActiveDoc . Words ( i ) 
3 « End If 
li&it i 

Debug. Print "ActiveDoc : " & ActiveDoc .Words (mlngFirstWord, mlngLastWord) 

Debug. Print "Suggestion: " & mbcSugges t ion . Words (mlngSuggestion (mlngFirstWord) , mlngSuggestion (mlngLastWord) ) 

£=! 

End Su£> 

Publrc Property Get RTFNormalO As String 
^jf'Normal = mbcSuggestion.RTF 

End Eroperty 

M 

Publ^Ci, Property Get RTFHighlight ( ) As String 



ffj TO DO: Make this actually display highlighted text 
f^strRTFHighlight = Highl ight RTF (mbcSugges t ion, strRTFU 



strRTFNormal , IngTransposedStart , IngTransposedEnd) 
RTFHighlight = mbcSuggestion.RTF 
End Property 

Private Function Highl ightRTF (ByRef SourceDocument As cDocument, ByVal SourceRTF As String, ByVal FirstWord As Long, 
ByVal LastWord As Long) As String 

Dim bcRichText As New cRichText 
Dim IngFirstChar As Long 
Dim IngLastChar As Long 
Dim IngCharOf f set As Long 



If LastWord < FirstWord 
Or FirstWord = 0 _ 
Or LastWord = 0 Then 

Highl ightRTF = SourceRTF 

Exit Function 
End If 

If SourceDocument Is ActiveDoc Then IngCharOf f set = ActiveDoc. Words .FirstChar (Citation. CitationStart) - 1 

IngFirstChar = SourceDocument .Words . FirstChar (FirstWord) 
IngLastChar = SourceDocument . Words . Las tChar (LastWord) 

With bcRichText 

. TextRTF = SourceRTF 

.SelStart = IngFirstChar - IngCharOf f set 
.SelLength = IngLastChar - IngFirstChar - IngCharOf f set 
.SelColor = wdColorRed 
Highl ightRTF = .TextRTF 
End With 



End Function 
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' — Copyright 2001 by Robert L. Jacobson . 
Option Explicit 

Public Result As bcButtonPress 

Private mstrCitationNormalRTF As String 
Private mstrCitationHighlightRTF As String 
Private mstrCitationText As String 
Private mbolCitationlsHighlight As Boolean 

Private mcolSuggestions As Collection 
Private mstrAHSuggestionsHighlightRTF As String 
Private mstrAHSuggestionsNormalRTF As String 
Private mstrAHSuggestionsText As String 
Private mbolSuggestionlsHighlight As Boolean 

Private mstrSelectedChangeRTF As String 
Private mlngActiveSelection As Long 

Private mlngSuggestionStart { ) As Long 
Private mlngSuggestionEnd{ ) As Long 

Private mbolModal As Boolean 

Private Const bcCitationText = -1 

Private Const bcSuggestionText = -2 

Private Const SUGGEST I ON_NORMAL As Long =795 

Private Const SUGGEST I ON_EXPANDED As Long = 1750 

Public Property Get SuggestionsCount ( ) As Long 

If mcolSuggestions Is Nothing Then 
SuggestionsCount = 0 

Else 

SuggestionsCount = mcolSuggestions . Count 
End If 

End Property 

Publ improper ty Get SelectedChangeRTF ( ) As String 

Sm ; ectedChangeRTF = mstrSelectedChangeRTF 
End Pjrqperty 

"a 

Publi^jSub AddCitation{ByVal CitationNormalRTF As String, ByVal CitationHighlightRTF As String) 

itfsJtlrCi tat ionNormalRTF = CitationNormalRTF 
mstrCitationHighlightRTF = CitationHighlightRTF 

W&Hh rtfCitation 

.Text RTF = CitationHighlightRTF 
it! mstrCitationText = .Text 
Elfd With 

rgbolCitationlsHighlight = True 
End StiS 

Publ^|]Sub AddSuggestion(ByVal Suggest ionNormalRTF As String, ByVal SuggestionHighlightRTF As String) 
ijfm IngSuggestionNumber 

is a 

hJ 

^fLmcolSuggestions Is Nothing Then Set mcolSuggestions = New Collection 
mcolSuggestions . Add Suggest ionNormalRTF 

IngSuggestionNumber = SuggestionsCount 

If IngSuggestionNumber = 1 Then 

lblSuggestion. Enabled = True 

rtf Suggestion. TextRTF = "" 
End If 

ReDim Preserve mlngSuggestionStart (1 To IngSuggestionNumber) 
ReDim Preserve mlngSuggestionEndd To IngSuggestionNumber) 

With rtfSuggestion 

If IngSuggestionNumber > 1 Then 

Call ExpandSuggestions 

.SelStart = Len( .Text) 

.SelText = vbCrLf 

.SelAlignment = rtf Center 

.SelText = " or " 

.SelText = vbCrLf 

.SelAlignment = rtf Left 
End If 

mlngSuggestionStart ( IngSuggestionNumber) = . SelStart 
. SelRTF = SuggestionHighlightRTF 

mlngSuggestionEndt IngSuggestionNumber) = . SelStart - 1 
End With 

mbolSuggestionlsHighlight = True 
End Sub 

Public Sub PrepareDataO 



Dim bcRichText As New cRichText 



fErrorForm 



f Sj^^^t i on . Te4^^ 
RT^^kf 



mstrAHSuggestionsText = rtfSj^^^tion.TeJ 
mstrAllSuggestionsHighlightRT^^Mbf Suggest ion, TextRTF 



If SuggestionsCount > 1 Then 

With bcRichText * 
. TextRTF = mstrAllSuggestionsHighlightRTF 
.SelStart = 1 
.SelLength = Len(.Text) 
.SelColor = vbBlack 

mstrAHSuggestionsNormalRTF = , TextRTF 
End With 
End If 

End Sub 

Public Sub MakeModaK) 

If SuggestionsCount = 1 Then 

mlngActiveSelection = 1 

cmdChange . Enabled = True 

cmdChange . Set Focus 
End If 

Screen . MousePointer = vbDefault 

mbolModal = True 
Do 

DoEvents 
Loop Until mbolModal = False 

End Sub 

Public Sub MakeModeless { ) 

mbolModal - False 

Screen. MousePointer = vbHourglass 

Se„t. mcol Suggest ions = Nothing 

cjTrfrgnoreRule . Enabled = False 

c.m4lgno re. Enabled = False 

clfaiChange. Enabled = True 

cmdChange . SetFocus 

cmdChange. Enabled = False 

rfe| Suggest ion. Text = 

gtj^ Suggestion. Locked = True 

rk! I Suggest ion. Enabled = True 

4fef Citation. Text = 

rj. f Citation. Locked = True 

i§&f Citation. Enabled = True 

r£f Rule. Text = " " 

t&feErrorMes sage. Text = 

l„blSuggesti on. Enabled = False 

Contract Suggest ions 

'Events 

End Sub 

Private Sub chkShowRule_Click{) 
IngOffset As Long 

IngOffset = rtf Rule . Height 
If chkShowRule. Value = 0 Then 

rtf Rule. Visible = False 

Me. Height = Me. Height - IngOffset 

Else 

rtf Rule. Visible = True 
Me. Height = Me. Height + IngOffset 
End If 

End Sub 

Private Sub cmdCancel_Click( ) 

Result = Cancel 
Call MakeModeless 
Me. Hide 

End Sub 

Private Sub cmdChange_Click ( ) 

Select Case mlngActiveSelection 
Case Is >- 1 

mstrSelectedChangeRTF = mcolSuggestions (mlngActiveSelection) 
Case Is = bcCitationText 

mstrSelectedChangeRTF = rtf Citation. TextRTF 
Case Is = bcSuggestionText 

mstrSelectedChangeRTF = rtf Suggestion . TextRTF 
End Select 

Result = Change 
Call MakeModeless 

End Sub 



Private Sub cmdIgnore_Click ( ) 
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Result = Ignore 
Call MakeModeless 

End Sub 

Private Sub cmdIgnoreRule_Click( ) 

Result = IgnoreRule 
Call MakeModeless 

End Sub 

Private Sub Form_Click() 

Me . SetFocus 
End Sub 

Private Sub lblCitation_Click( ) 

Me . SetFocus 
End Sub 

Private Sub lblSuggestion_Click ( ) 

Me . SetFocus 
End Sub 

Private Sub Picturel„Click ( ) 
End Sub 

Private Sub rtfCitation„Click( ) 

Dim IngSelectionStart As Long 
Dim IngSelectionLength As Long 

I^ImbolCitationlsHighlight Then 

w 

3 With rtfCitation 
*3 IngSelectionStart = . SelStart 

\l IngSelectionLength = . SelLength 

yl rtfCitation. TextRTF = mstrCitationNormalRTF 

= . mbolCitationlsHighlight = False 

.Locked - False 

*-jf .SelStart = IngSelectionStart 

i£~ .SelLength = IngSelectionLength 

End With 

f*i mbolCitationlsHighlight = False 

|M if 

End fyfc 

Private Sub rtfCitation_LostFocus ( ) 

St : 

rf r rtf Citation. Text = mstrCitationText Then 
Call ResetCitation 

If rtf Suggestion. Text = " " Then Call ResetSuggestion 
End If 

End Sub 

Private Sub rtfCitation_KeyPress (KeyAscii As Integer) 

rtf Suggestion . Text = " " 

rtf Suggest ion. Enabled = False 

lbl Suggest ion. Enabled = False 

If KeyAscii = 13 Then 

KeyAscii = 0 

Call cmdChange_Click 
End If 

mlngActiveSe lection = bcCitationText 
cmdChange . Enabled = True 
cmdChange . SetFocus 
DoEvents 

End Sub 

Private Sub ResetCitation ( ) 

With rtfCitation 
.Locked = True 
.Enabled = True 

.TextRTF = mstrCitationHighlightRTF 
End With 

mbolCitationlsHighlight = True 
End Sub 

Private Sub txtErrorMessage_Click( ) 
Me. SetFocus 
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End Sub 

Private Sub rtf Suggestion_Click ( ) 

Dim IngSelectionStart As Long 

Dim IngSelectionLength As Long 

Dim i As Long 

Dim IngCursorPosition As Long 

With rtf Suggestion 

If SuggestionsCount = 1 Then 

If mbolSuggestionlsHighlight Then 

IngSelectionStart = . SelStart 
IngSelectionLength = . SelLength 

. TextRTF = mcolSuggestions (1) 
mbolSuggestionlsHighlight = False 
.Locked = False 

.SelStart = IngSelectionStart 
.SelLength = IngSelectionLength 
End If 

Elself SuggestionsCount > 1 Then 

IngCursorPosition = .SelStart 

mlngActiveSelection = 0 

For i = 1 To SuggestionsCount 

If IngCursorPosition >= mlngSuggestionStart ( i) And IngCursorPosition <= mlngSuggestionEnd(i ) Then 
.SelStart = mlngSuggestionStart (i) 

.SelLength = mlngSuggestionEnd(i) - mlngSuggestionStart (i) + 1 
cmdChange . Enabled = True 
mlngActiveSelection = i 
i s \ Exit For 

End If 



Next i 

If mlngActiveSelection = 0 Then 
cmdChange . Enabled = False 
Me . SetFocus 

End If 



f~-_ End If 
E4§a With 



End 5ub 

Frieild? Sub rtf Suggestion_LostFocus ( ) 

^fj rtf Suggest ion. Text = mstrAll Suggest ionsText Then 
=^1 Call ResetSuggestion 
End If 

End Safe 

Private Sub rtf Suggestion_KeyPress (KeyAscii As Integer) 

rtfCitation.Text = 
rtfCitation. Enabled = False 

If KeyAscii =13 Then 

KeyAscii = 0 

Call cmdChange_Click 
End If 

mlngActiveSelection = bcSuggestionText 
cmdChange . Enabled = True 
cmdChange . SetFocus 
DoEvents 

End Sub 

Private Sub ResetSuggestion ( ) 

With rtf Suggestion 
. Locked = True 
.Enabled = True 

, TextRTF = mstrAllSuggestionsHighlightRTF 
End With 

mbolSuggestionlsHighlight = True 



End Sub 

Private Sub Form_Load{) 

IsOnTop Me.hwnd, True 
chkShowRule .Value = 0 

Me . Show 

Screen. MousePointer = vbHourglass 
DoEvents 
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End Sub 

Private Sub Form__QueryUnload {Cane 



Integer, UnloadMode As Integer) 



If the user presses the close button from the control menu, 
procedure invoked from the Cancel button. 



stop the form from unloading and instead follow the shutdown 



If UnloadMode = vbFormControlMenu Then 
cmdCancel .Value = True 
Cancel = True 

Else 

Cancel = False 
End If 



End Sub 



Friend Sub ExpandSuggestions { ) 
Dim ctlCurrent As Control 



If Me. rtf Suggestion. Height <> SUGGESTION_EXPANDED Then 

For Each ctlCurrent In Me. Controls 

If TypeOf ctlCurrent Is Line Then 

CtlCurrent .Yl = ctlCurrent . Yl + ( SUGGEST I ON_EX PANDED - SUGGESTION_NORMAL) 
CtlCurrent .Y2 = ctlCurrent . Y2 + (SUGGEST I ON_EX PANDED - SUGGESTION_NORMAL) 

Else 

If ctlCurrent .Top > Me . rtf Suggestion .Top Then ctlCurrent . Top = ctlCurrent . Top + (SUGGESTION_EX PANDED - SUGGEST ION_NORMAL) 
End If 
Next ctlCurrent 

Me. Height = Me. Height + { SUGGEST I ON_EX PANDED - SUGGESTION_NORMAL) 

Me. rtf Suggestion. Height = Me . rtf Suggestion . Height + (SUGGESTION_EXPANDED - SUGGEST ION_NORMAL) 



End If 



End Sub 

Frien<5ciSub ContractSuggestions ( ) 

%l 

D4.n1 ctlCurrent As Control 

\l 

Xt^Me. rtf Suggest ion. Height <> SUGGESTION_NORMAL Then 

l . For Each ctlCurrent In Me. Controls 
? 8a If TypeOf ctlCurrent Is Line Then 

H\ ctlCurrent. Yl = ctlCurrent . Yl - (SUGGEST I ON_EX PANDED - SUGGEST I ON_NORMAL) 

ctlCurrent. Y2 = ctlCurrent . Y2 - (SUGGEST I ON_EX PANDED - SUGGEST ION_N0RMAL) 

Else 

If ctlCurrent .Top > Me . rtf Suggestion . Top Then ctlCurrent .Top = ctlCurrent .Top - (SUGGESTION_EXPANDED - SUGGE S T I ON_NORMAL ) 
£ End If 

f*h Next ctlCurrent 

Me. Height = Me. Height - ( SUGGEST I ON_EX PANDED - SUGGESTION_NORMAL) 
flj Me. rtf Suggestion. Height = Me . rtf Suggestion. Height - { SUGGESTION_ EXPANDED - SUGGESTION_NORMAL) 

If 

End Sub 

s ; 
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■ — Copyright 2001 by Robert L. Jacob^a 
Option Explicit 

Private mstrForCourt As String 

Public Property Get ForCourt ( ) As String 

ForCourt = mstrForCourt 
End Property 

Private Sub Form_Load() 

Dim bcJurisdiction As cJurisdiction 



IsOnTop Me.hwnd, True 

For Each bcJurisdiction In Jurisdictions 

If Not (bcJurisdiction. FullName = "Federal") Then cmbState . Addltem (bcJurisdiction. FullName) 
Next bcJurisdiction 

op t Doc Type (0) .Value = False 
optDocType (1) .Value = False 
optDocType (2) .Value = False 

End Sub 

Private Sub cmdOK_Click ( ) 

If optDocType (0) .Value = True And cmbState. Text <> "" Then 

mstrForCourt = cmbState . Text 
El self optDocType ( 1 ) .Value = True Then 

mstrForCourt = "Federal" 
Elself optDocType (2) .Value = True Then 

mstrForCourt = "None" 
End If 

Me. Visible = False 
Debug. Print mstrForCourt 

:•*==; 

End 

€1 

Private Sub cmdCancel_Click ( ) 

\i Reset the display to the saved value. 
Select Case mstrForCourt 
m Case "None" 

r * optDocType (2) .Value = True 

r a - Case "Federal" 

ff\ optDocType (1) .Value = True 

Case w " 

optDocType ( 0 ) .Value - False 
,? " OptDocType ( 1 ) .Value = False 

a optDocType (2) .Value = False 

cmbState . Enabled = False 

cmdOK. Enabled = False 
fll Case Else 

optDocType (0) .Value = True 
O cmbState. Text = mstrForCourt 

End Select 

Met Visible = False 

End jitfb 

Private Sub optDocType_Click( Index As Integer) 
Select Case Index 
Case 0 

' — "For state" selected. 
lblState. Enabled = True 
cmbState. Enabled = True 
cmbState . SetFocus 

If cmbState. Text <> "" Then cmdOK. Enabled = True 
Case 1, 2 

• — "For federal" or "other" selected. 
lblState. Enabled = False 
cmbState. Enabled = False 
cmdOK . Enabled = True 

End Select 

End Sub 

Private Sub cmbState_Click( ) 

If optDocType (0) .Value = True And cmbState . Text <> "" Then cmdOK. Enabled = True 




End Sub 



mAPI Functions - 1 
Option Explicit 

Private Const SWP_NOSIZE = &H1 
Private Const SWP_N0MOVE = &H2 
Private Const HWND_TOPMOST - -1 
Private Const HWND_NOTOPMOST - -2 

Private Declare Function SetWindowPos Lib B user32" (ByVal hwnd As Long, _ 
ByVal hWndlnsertAf ter As Long, ByVal x As Long, ByVal y As Long, _ 
ByVal cx As Long ( ByVal cy As Long, ByVal wFlags As Long) As Long 

Public Sub IsOnTop(hwnd As Long, bOnTop As Boolean) 

Dim x As Long 



If bOnTop Then 

x = SetWindowPos (hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) 
Else 

x = SetWindowPos (hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_N0M0VE Or SWP_NOSIZE> 
End If 




End Sub 



mCheckCaseName - 1 

' — Copyright 2001 by Robert L. Jacobj 
Option Explicit 



Private mbolStartOf Phraselnitialized As Boolean 
Private Const CASENAME_PLACEHOLDER As String = - 



Public Sub CheckCaseName ( ) 

Dim IngVPos As Long 
Dim strVText As String 
Dim strOrigName As String 

mbolStartOfPhraselnitialized = False 

If Not Citation. CaseName Clause Is Nothing Then 

If Not Ci tat ion. CaseNameClause . Text = CAS EN AME_ PLACEHOLDER Then 

Call ChecklncorrectVersusText 

If Error Form. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMultipleVersus 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckEtAlAndDBA 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldBeExRel 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldBelnRe 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckVersusFollowsProceduralPhrase 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



J 



Call CheckMultipleProceduralPhrases 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



%U Call ChecklnRePunctuation 

\ t l If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

\\ Call CheckExPartePunctuation 

. _^ If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

y i 

: . Call Che ckExRel Punctuation 

?** If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

*5f Call CheckFirstWordAbbreviated 

111 If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

s Call CheckThe 

f=^ If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

fll Call CheckDescriptiveTerms 

^ If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

; . Call CheckUsesStateOf 

f* s If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



Call CheckShouldNotUseState 



has If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call CheckShouldUseState 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckCityOf 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckPrepositionalPhraseOf Location 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckOf America 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckBusinessFirmDe si gnat ions 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUnion 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckCIR 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckShouldAbbreviate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUnitedStates 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



Else 



Call CheckMissingCaseNameClause 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 



End If 
End If 



End Sub 
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Private Sub CheckMissingCaseNameClj 

'-- If the citation doesn't hav^^^case name clause, then suggest inserting a pl^WBffolder . 

If Citation. CaseNameClause Is Nothing Then 

Call ErrorForm. LoadError ( "CaseName MissingCaseNameClause" , 0, 0) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (Citation. CitationStart, " v. ") 

Call ErrorForm. Activate 
End If 
End If 

End Sub 

Private Sub ChecklncorrectVersusText { ) 

1 — If the abbreviation for versus is not spelled as "v." with a trailing space, then suggest correcting it. 

Dim i As Long 

Dim strWordTrim As String 

Dim IngVersusEnd As Long 



For i = Citation. CaseNameClause . PartyName ( 1 ). Start To Citation. CaseNameClause. ClauseEnd 
strWordTrim = ActiveDoc .Words . WordsTrim( i) 



If strWordTrim = "v" _ 

Or strWordTrim = "vs" _ 

Or strWordTrim = "versus" Then 

IngVersusEnd = ActiveDoc .Words .NextFullWord(i) - 1 

• — is "versus" abbreviated incorrectly? 

'» Jones vs. Smith, 200 U.S. 500, 505 (1980) 

If ActiveDoc.Words(i, IngVersusEnd) <> "v." Then 



Call ErrorForm. LoadError( "CaseName IncorrectVersusText A", i, IngVersusEnd) 
jj^j If Not ErrorForm. IgnoreError Then 

.Zl Call ErrorForm. Suggest ion. Change (i, IngVersusEnd, "v.") 

%il Call ErrorForm. Activate 

\\ If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

~ l End If 



Is there no space after the abbreviation of "versus"? 



h'rl '» Jones v. Smith, 200 U.S. 500, 505 (1980) 

Elself ActiveDoc. Words. SpacesAf terWord( IngVersusEnd) = 0 Then 

i" g Call ErrorForm. LoadError ( "CaseName IncorrectVersusText B" , i, IngVersusEnd) 

4c= If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Change (i, IngVersusEnd, "v.") 
s Call ErrorForm. Activate 

r e ! If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Jf- End If 

m 

*j: End If 

Is-I End If 

Next i 

End §ub 

Private Sub CheckMultipleVersus ( ) 

■ — If the case name has more than one abbreviations of "versus," then suggest deleting the subsequent versus. 



Dim i As Long 
Dim strWordTrim As String 
Dim IngPriorComma As Long 
Dim IngVersusEnd As Long 



If Citation. CaseNameClause . Part iesCount > 1 Then 

For i = Citation. CaseNameClause. PartyName (2) .Start To Citation. CaseNameClause . ClauseEnd 
strWordTrim = ActiveDoc .Words . WordsTrim(i) 



If strWordTrim = "v" _ 

Or strWordTrim - "vs" _ 

Or strWordTrim = "versus" Then 



'-- Search for a comma that falls between this versus and the first versus. 
IngPriorComma = LocateWord(i - 1, Citation. CaseNameClause. VersusPosit ion, False, ",") 

'-- If a prior comma was found, then suggest deleting it and all subsequent text. 
'» Jones v. Smith, Smith v. Jones, 200 U.S. 500, 505 (1980) 
If IngPriorComma > 0 Then 

Call ErrorForm. LoadError ( "CaseName MultipleVersus 1", IngPriorComma + 1, Citation. CaseNameClause . ClauseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngPriorComma, Citation. CaseNameClause. ClauseEnd) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



1 — Otherwise, just ask the user to fix the error manually. 
'» Jones v. Smith Smith v. Jones, 200 U.S. 500, 505 (1980) 
Else 

IngVersusEnd = ActiveDoc .Words. NextFullWord(i) - l 



mCheckCaseName - 3 J2"7 

r^^Ase 



Call ErrorForm. Lo^dError^^^seName MultipleVersus 2", i, lngVersus^^) 
If Not ErrorFoi^^^koreEl^^ Then ^^^^ 
Call Errorl^^^Bbtivate ^^^V 

If ErrorForMBKult = Change Or ErrorForm. Result = Cancel TherWsit Sub 

End If 



End If 



End If 
Next i 
End If 



End Sub 



Private Sub CheckEtAlAndDBA ( ) 



' — Rule 10.2.1(a): If the case name contains the phrase "et al . - or "d/b/a", then suggest deleting that phrase and the 

remaining text in that party's name. 
'» Franklin et al . v. Amanant, 200 U.S. 500, 505 (1980) 
'» Franklin v. Amanant d/b/a The Man, Inc., 200 U.S. 500, 505 (1980) 



Dim i As Long 
Dim IngPhraseEnd As Long 
Dim IngDeleteStart As Long 
Dim strErrorKey As String 



For i = Citat ion. CaseNameClause . PartyName (1) .Start To Citation . CaseName Clause . ClauseEnd 



IngPhraseEnd = IsStartOf Phrase (i , "etal" , True) 
If IngPhraseEnd > 0 Then 

strErrorKey = "CaseName EtAlAndDBA A" 

Else 

IngPhraseEnd = I sS tar tOf Phrase (i, "dba", True) 
If IngPhraseEnd > 0 Then 

strErrorKey = "CaseName EtAlAndDBA B" 
End If 
End If 

"J If IngPhraseEnd > 0 Then 

'•J If Ac tiveDoc. Words (i - 1) = "," Then 
IngDeleteStart = i - 1 

Else 

\s IngDeleteStart = i 

. _f End If 



•s. s 



eEnlff ) 



Call ErrorForm. LoadError (strErrorKey, IngDeleteStart, Citation. CaseNameClause. Par tyNameAtWord ( i ) .End, Ac tiveDoc .Words ( i , IngPhr 



H\ If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (IngDeleteStart, Citation. CaseNameClause . Par tyNameAtWord ( i ) .End) 
Call ErrorForm. Activate 



If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



is =. 

M End If 
4S?t i 
End Sub 

. Priva*e& Sub CheckShouldBeExRel ( ) 

Srtir Rule 10.2.1(b): If the case name contains the phrases "on... of," "for... of," or "by and through," then suggest changing the 
r phrase to "ex rel . " 



Dim i As Long 
Dim IngOfLocation As Long 
Dim strWordTrim As String 
Dim IngPhraseEnd As Long 



■ — Look for the phrase "on... of" 

'» Jones on Behalf of the Application of Smith v. Johnson, 200 U.S. 500, 505 (1980} 
'!!! TO DO: Change this so the second party's name is checked as well. 

For i = Ci tat ion. CaseNameClause . PartyName (1 ). Start To Citation . CaseNameClause . ClauseEnd 
strWordTrim = ActiveDoc. Words. WordsTrim(i) 
If strWordTrim = "on" Or strWordTrim = "for" Then 



IngOfLocation = LocateWord (Citation. CaseNameClause. PartyName (1) .End, i + 2, True, "of") 
If IngOfLocation > 0 Then 

If ActiveDoc .Words .WordsTrim ( IngOfLocation +1) = "the" Then 
IngPhraseEnd = IngOfLocation + 1 

Else 

IngPhraseEnd = IngOfLocation 
End If 



Call ErrorForm. LoadError ( "CaseName ShouldBeExRel " , i, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change ( i , IngPhraseEnd, "ex rel.") 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 



End If 
Next i 



mCheckCaseName - 4 ^ ^ 

Look for the phrases "by and ^ " " " 

' >> Jones by and through Smith v.j 
For i = Citation. CaseNameClause. 
IngOfLocation = IsStartOf Phra^ 

If IngOfLocation = 0 Then IngOfLocation = IsStartOfPhrased, " fortheuseof " , False) 
If IngOfLocation > 0 Then 



i ^cough^^Ad "for the use of" ^^^^^B 
^j.g^^sol^foO U.S. 500, 505 (1980) ^Bt^F 

.^^^Hame(l) .Start To Citation . CaseNameClause . Clau^^M 

raW&, "byandthrough" , False) 



Call ErrorForm, LoadError ( "CaseName ShouldBeExRel" , i, IngOfLocation) 
If Not ErrorForm. ignoreError Then 

Call ErrorForm. Suggestion. Change (i, IngOfLocation, "ex rel . " ) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 
Next i 

End Sub 

Private Sub CheckShouldBelnRe ( ) 

' — Rule 10.2.1(b): If the first word of the case name is "in," "petition," or "application" and that word is followed by "of, 
then suggest changing the phrase to "In re". 

'» In the Matter of the Application of Smith, 200 U.S. 500, 505 (1980) 
' » Matter of the Application of Smith, 200 U.S. 500, 505 (1980) 
*» Petition of Smith, 200 U.S. 500, 505 (1980) 

Dim i As Long 

Dim IngOfLocation As Long 

Dim strFirstWordTrim As String 

Dim strSecondWordTrim As String 



With Citation. CaseNameClause 

strFirstWordTrim = Acti veDoc. Words .WordsTrim( . Par tyName(l) .Start) 
StrSecondWordTrim = Ac tiveDoc .Words .WordsTrim( . Par tyName (1) . Start + 1) 

f*| If (strFirstWordTrim = "in" And StrSecondWordTrim <> "re") _ 

TsL 0r StrFirstWordTrim = "petition" _ 

%ll Or strFirstWordTrim = "application" _ 

^ : Or strFirstWordTrim = "matter" Then 

IngOfLocation = LocateWord ( .ClauseEnd, . Par tyName (1) . Start + 1, True, "of") 
* = If IngOfLocation > 0 Then 

in 

. , Call ErrorForm. LoadError ("CaseName ShouldBelnRe" , . PartyName ( 1) . Start , IngOfLocation) 

r c ~ If Not ErrorForm. IgnoreError Then 

fh$h Call ErrorForm. Suggest ion. Change (. Par tyName (1) .Start, IngOfLocation, "In re") 

*M Call ErrorForm. Activate 

^r; If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 

ffcs* End If 

f|J End If 

4|| With 

End Jtab 

Private Sub CheckVersusFollowsProceduralPhrase ( ) 

T — Rule 10.2.1(b): If a designation of "versus" follows "In re" or "Ex parte," then suggest deleting the procedural phrase. 
'» In re Jones v. Smith, 200 U.S. 500, 505 (1980) 

Dim IngPhraseEnd As Long 



With Citation. CaseNameClause 

If . VersusPosition > 0 Then 

IngPhraseEnd = IsStartOf Phrase (. PartyName ( 1) . Start , "inre", True) 

If IngPhraseEnd = 0 Then IngPhraseEnd ~ IsStartOf Phrase (. PartyName (1) . Start , "exparte", True) 
If IngPhraseEnd > 0 Then 

Call ErrorForm. LoadError ( "CaseName VersusFollowsProceduralPhrase" , . PartyName (1) . Start , IngPhraseEnd, ActiveDoc. Words (. Part 
yName(2) .Start, . PartyName (2 ) .End) ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (. PartyName (1) .Start, IngPhraseEnd) 

Call ErrorForm. Activate 
End If 

End If 
End If 

End With 

End Sub 

Private Sub CheckMultipleProceduralPhrases ( ) 

■ — Rule 10.2.1(b): If "ex rel." follows a designation of "In re" or "Ex parte," then suggest deleting "ex rel." and all of 
' the text that follows it. 

'» In re Jones ex rel. Smith, 200 U.S. 500, 505 (1980) 



Dim IngEndOf Fir st Phrase As Long 
Dim IngEndOf SecondPhrase As Long 
Dim i As Long 
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With Citation. CaseNameClause 




IngEndOf Fir st Phrase = IsStartOf Phrase (. PartyName ( 1) . Start , "inre", True) 

If IngEndOfFirstPhrase = 0 Then IngEndOf First Phrase = IsStartOf Phrase {. PartyName ( 1) . Start , "exparte", True) 

If IngEndOfFirstPhrase > 0 Then 

For i = IngEndOfFirstPhrase + 1 To .ClauseEnd 

IngEndOf SecondPhrase = IsStartOf Phrase (i , "exrel", True) 

If IngEndOf SecondPhrase > 0 Then 

Call ErrorForm. LoadError ( "CaseName MultipleProceduralPhrases" , i, .ClauseEnd, Ac tiveDoc .Words (i , IngEndOf SecondPhrase) , 
ActiveDoc . Words ( . PartyName ( 1 ) . Start , IngEndOfFirstPhrase) ) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Delete ( i , .ClauseEnd) 
Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 

Next i 
End If 

End With 

End Sub 

Private Sub Check inRePunctuati on ( ) 

' — Rule 10.2.1(b): If "In re" is incorrectly punctuated or capitalized, then suggest correcting it. 
'» In Re. Jones, 200 U.S. 500, 505 (1980) 

Dim IngPhraseEnd As Long 



With Citation. CaseNameClause 

IngPhraseEnd = IsStartOf Phrase ( .PartyName (1) .Start , "inre", True) 
If IngPhraseEnd > 0 Then 

If ActiveDoc .Words (. PartyName (1) . Start , IngPhraseEnd) <> "In re" Then 

V§ Call ErrorForm. LoadError ( "CaseName InRePunctuation" , . PartyName (1) . Start , IngPhraseEnd) 

. J= If Not ErrorForm. IgnoreError Then 

y] Call ErrorForm. Suggestion .Change (. PartyName (1) . Start , IngPhraseEnd, "In re") 

s 1 " Call ErrorForm. Activate 

f*~ If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Ar* End If 

jC End If 

T " End If 

£ 

Bad With 
End guf> 

• Priv|§£ Sub CheckExPartePunctuationt ) 

'fsk. R U ie 10.2.1(b): If "Ex parte" is incorrectly punctuated or capitalized, then suggest correcting it. 

s>9> Ex Parte Jones, 200 U.S. 500, 505 (1980) 

ad 

fejUa IngPhraseEnd As Long 



With Citation. CaseNameClause 

IngPhraseEnd = IsStartOf Phrase (. PartyName ( 1) . Start , "exparte", True) 
If IngPhraseEnd > 0 Then 

If ActiveDoc . Words (. PartyName ( 1) . Start , IngPhraseEnd) <> "Ex parte" Then 

Call ErrorForm. LoadError ( "CaseName ExPartePunctuation" , . PartyName ( 1 ). Start , IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change (. PartyName (1) .Start , IngPhraseEnd, "Exparte") 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 
End If 

End With 

End Sub 

Private Sub Che ckExRel Punctuation ( ) 

'-- Rule 10.2.1(b): If "ex rel." is incorrectly punctuated or capitalized, then suggest correcting it. 
'» Smith exrel. Jones, 200 U.S. 500, 505 (1980) 

Dim IngPhraseEnd As Long 
Dim i As Long 



With Citation. CaseNameClause 



For i = . PartyName (1) .Start + 1 To .ClauseEnd - 1 

IngPhraseEnd = IsStartOf Phrase ( i , "exrel", True) 
If IngPhraseEnd > 0 Then 
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If ActiveDocW^^s ( i, lngPhr^^Bid) <> "ex rel." Then 



Errwiror 




Call Errc^^MLLoadError ( "CaseName ExRel Punctuation" , i, l^^^PseEnd) 
If Not Err^Worm. IgnoreError Then 

Call ErrorForra. Suggestion. Changed, IngPhraseEnd, "ex rel.") 
Call Error Form. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 
End If 
Next i 

End With 

End Sub 

Private Sub CheckFirstWordAbbreviated ( ) 

' — Rule 10.2.1(c): If the first word of a party name is an abbreviation (either an abbreviation from Table 6 or an 

unrecognized abbreviation) then suggest expanding it. 
'» Univ. of Minn. v. Smith, 200 U.S. 205, 210 (1980) 

Dim IngParty As Long 
Dim IngNameStart As Long 
Dim IngNameEnd As Long 



With Citation. CaseNameClause 

For IngParty = 1 To . PartiesCount 

IngNameStart = . PartyName ( IngParty) . Start 

'-- "C.I.R." and "U.S." are handled elsewhere. 

If Not (IsStartOf Phrase (IngNameStart, "cir", False) > 0 Or IsStartOf Phrase (IngNameStart , "us", False) > 0) Then 
IngNameEnd = . PartyName ( IngParty) . End 

Call ChecklmproperAbbreviation (IngNameStart, IngNameEnd, "CaseName FirstWordAbbreviated" ) 
If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 
^ Next IngParty 

Sir::? 

Eitfi With 
W 
End Sub 

PrivabJ Sub CheckTheO 

Rule 10.2.1(d): If the first word of a party name is "The," then suggest deleting it unless it is part of the phras 
■j^„L "The King, " "The Queen, " or "The . . . case(s) . " 
*>> The Univ. of Minn. v. Smith, 200 U.S. 2 05, 210 (1980) 

dim IngParty As Long 
D$m IngNameStart As Long 
Dim IngThe Posit ion As Long 

V^|h Citation. CaseNameClause 

jkas. For IngParty = 1 To . PartiesCount 

=tc# IngNameStart = . PartyName ( IngParty) . Start 



If ActiveDoc .Words. WordsTrim( IngNameStart) = "the" Then 
|*| IngThePosition = IngNameStart 

? pfc '-- Is "The" not immediately followed by "King" or "Queen", and not followed by "Case" or "Cases"? 

If Not (ActiveDoc .Words .Wo rdsTrim{ IngThePosition +1) = "queen" _ 
Or ActiveDoc .Words .WordsTrim( IngThePosition + 1) = "king" _ 

Or LocateWordt IngThePosition + 1, . ClauseEnd, True, "case", "cases") > 0) Then 

Call ErrorForm. LoadErr or ( "CaseName The", IngThePosition, IngThePosition) 
If Not ErrorForm. IgnoreError Then 

Cal 1 ErrorForm . Suggest ion . Delete ( IngThePosition , IngThePosition ) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 

End If 
Next IngParty 

End With 

End Sub 

Private Sub CheckDescriptiveTerms ( ) 

' — Rule 10.2.1(e): If the name of a party ends in a word that describes a party, like "administrator," "appellee," or 

"executor," then suggest deleting that word. 
'» Smith, Trustee v. Jones, 200 U.S. 500, 505 (1980) 

Dim IngParty As Long 
Dim IngNameEnd As Long 
Dim strWordTrim As String 
Dim IngDeleteStart As Long 



For IngParty = 1 To Citation. CaseNameClause . PartiesCount 



IngNameEnd = Citation. CaseNameClause. PartyName (IngParty) .End 

If IngNameEnd > Citation. CaseNameClause . PartyName ( IngParty) . Start Then 
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strWordTrim = Ac t i veDoc^Vor ds .Wo^^Jrimt IngNameEnd) 
If Len ( strWordTrim) ^^^Bben 



e Doctor 

m 



'-- First, look fa^Pmown descriptive terms. 
If strWordTrim = "administrator" _ 
Or strWordTrim = "appellee" _ 
Or strWordTrim = "appellant" _ 
Or strWordTrim = "executor" _ 
Or strWordTrim = "executrix" _ 
Or strWordTrim = "licensee" _ 
Or strWordTrim = "licensor" _ 
Or strWordTrim = "trustee" Then 

If Act iveDoc .Words (IngNameEnd - 1) = "," Then 
IngDeleteStart = IngNameEnd - 1 

Else 

IngDeleteStart = IngNameEnd 
End If 

Call ErrorForm. LoadError ( "CaseName DescriptiveTerms A", IngNameEnd, IngNameEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion .Delete (IngDeleteStart , IngNameEnd) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

'-- Second, identify other descriptive terms by looking to their suffixes, but only if preceeded by a comma- 
Then 



Elself 


Act iveDoc .Words (IngNameEnd - 1) = "," 


If 


Right$ ( strWordTrim, 


2) = 


_ ,. or „ _ 


Or 


Right $ ( s t rWo r dTr im , 


3) = 


= "ors" _ 


Or 


Right$(strWordTrim, 


3) = 


= "ant" _ 


Or 


Right $ (strWordTrim, 


4) = 


= "ants" _ 


Or 


Right $ ( s t rWo r dTr im , 


2) = 


= "ee" _ 


Or 


Right $ (strWordTrim, 


3) = 


= "ees" _ 


Or 


Right $ (strWordTrim, 


3) = 


= "rix" _ 


Or 


Rights (strWordTrim, 


5) = 


= "rixes" Then 



IngDeleteStart = IngNameEnd - 1 

Call ErrorForm. LoadError ("CaseName DescriptiveTerms B", IngNameEnd, IngNameEnd) 
%t If Not ErrorForm. IgnoreError Then 

%J Call ErrorForm. Suggestion. Delete (IngDeleteStart , IngNameEnd) 

Call ErrorForm. Activate 

%l If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 



End If 
Next IngParty 



End If 
End If 



End |a| 



Private Sub CheckUsesStateOf ( ) 

|j-r- Rule 10.2.1(f): If the case name contains "State of [State]", "Commonwealth of [State]" or "People of [State]", 

and [state] is the jurisdiction of the citation, suggest deleting "of [state]." If, however, the citation has a different 
^| jurisdiction, then suggest deleting "State/Commonwealth/ People of." 

s . 

i As Long 
Dim strPriorWordTrim As String 
Dim IngOf Position As Long 
Dim bcMatchingJur As cJurisdiction 
Dim IngJurEnd As Long 
Dim IngDeleteStart As Long 



For i ~ Citation. CaseNameClause . Par tyName (1) . Start + 1 To Citation. CaseNameClause . ClauseEnd 
If ActiveDoc .Words .WordsTrim(i) = "of" Then 
IngOf Position = i 

StrPriorWordTrim = ActiveDoc .Words . WordsTrim( IngOf Position - 1) 

If (strPriorWordTrim = "state" Or strPriorWordTrim = "commonwealth" Or strPriorWordTrim = "people") Then 



Set bcMatchingJur = Jur isdictionAtWord ( Act iveDoc. Words. NextFullWord ( IngOf Posi tion ) , IngJurEnd) 
If Not (bcMatchingJur Is Nothing) Then 

'-- Is the jurisdiction that follows the "State/ Commonwealth/ People of" phrase the same as the state 
court for which this is being submitted (if any)? 

If bcMatchingJur Is Citation . Jurisdiction Then 

'-- If so, suggest deleting "of [jurisdiction]" 

•» State of Minnesota v. Jones, 200 N.W.2d 200, 205 (Minn. Ct. App. 1990) 

Call ErrorForm. LoadError ( "CaseName UsesStateOf A", IngOf Position, IngJurEnd, AddArticle (bcMatchingJur . FullName) ) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion .Delete ( IngOf Position, IngJurEnd) 

If ActiveDoc .Words .WordsTrim( IngOf Position - 2) = "the" Then Call ErrorForm. Suggestion. Delete (IngOf Position - 2 

, IngOf Position - 2) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

Else 

' — Otherwise, suggest deleting "state/commonwealth/people of" 
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•» jfipo g v. State c^Mnnesota, 200 N.W,2d 200, 205 (^i^ 1980) 



v. State c^^pnnesota, 200 N.W,2d 200, 205 19 

;^^^K}oc. Words. WordsTrimdngOf Position - 2) = "th^^^Hfei 

fl^KleteStart = IngOf Position - 2 ^^^^ 



)) 



If 

Else 

IngDeleteStart = IngOf Position - 1 
End If 

Call ErrorForm. LoadError ( "CaseName UsesStateOf B" , IngDeleteStart, IngOf Position, AddArticle (bcMatchingJur . FullName 

If Not ErrorForm, ignoreError Then 

Call ErrorForm. Suggestion. Delete ( IngDeleteStart , IngOf Position) 
Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 

End If 

End If 

End If 
Next i 

End Sub 

Private Sub CheckShouldNotUseState ( ) 

'-- Rule 10.2.1(f): If one party's name is simply "State," "Commonwealth, " or "People," but the citation has a federal 

jurisdiction, then ask the user to change that party's name to the name of the state. 
'» State v. Jones, 200 U.S. 205, 210 (1980) 

Dim IngParty As Long 
Dim IngName Start As Long 
Dim strWordTrim As String 



I^JSIot (Citation. Jurisdiction Is Nothing) Then 

If Citation. Jurisdiction. FullName = "Federal" Then 
With Citation. CaseNameClause 

W '-- Does the party name consist only of "state," "commonwealth" or "people"? 

. '1 For IngParty = 1 To . PartiesCount 

\i If . PartyName (IngParty) . Start = . PartyName ( IngParty) . End Then 

55? strWordTrim = Act iveDoc .Words .WordsTrim( . PartyName (IngParty) . Start) 

If strWordTrim = "state" Or strWordTrim = "commonwealth" Or strWordTrim = "people" Then 

Call ErrorForm. LoadError ( "CaseName ShouldNotUseState" , . PartyName (IngParty) . Start , . PartyName (IngParty) .End) 
*ij If Not ErrorForm. IgnoreError Then 

iss Call ErrorForm. Activate 

=rf= If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

End If 



LI 

3i£ = 



End If 
End If 
Next IngParty 



W End With 

End If 
|nd If 

End gub 

Private Sub CheckShouldUseState ( ) 

' — Rule 10.2.1(f) : If one party's name consists only of the name of a state, and that state is the same as the citation's 

jurisdiction, then suggest changing the name of the state to "State," "Commonwealth," or "People." 
'» Minnesota v. Jones, 200 N.W.2d 200, 205 (Minn. Ct . App. 1990) 



Dim IngParty As Long 

Dim IngNameStart As Long 

Dim strWordTrim As String 

Dim IngJurEnd As Long 

Dim bcMatchingJur As cJurisdiction 



If Not {Citation. Jurisdiction Is Nothing) Then 

If Citation. Jurisdiction. FullName <> "Federal" Then 
With Citation . CaseNameClause 

' — Does the party name consist only of the name or abbreviation of a state, and does that name match the 

citation's jurisdiction? 
For IngParty = 1 To .PartiesCount 

Set bcMatchingJur = JurisdictionAtWord( . PartyName (IngParty) . Start, IngJurEnd) 

If bcMatchingJur Is Citation. Jurisdiction Then 
If IngJurEnd = . PartyName (IngParty) . End Then 

Call ErrorForm. LoadError ("CaseName ShouldUseState" , . PartyName ( IngParty) . Start , . PartyName ( IngParty) . End, AddAr 
ticle (Citation. Jurisdiction. FullName) ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (. PartyName (IngParty) . Start , . PartyName ( IngParty) . End, "State") 
Call ErrorForm, DisplaySuggestion 

Call ErrorForm. Suggestion. Change (. PartyName (IngParty) . Start, . PartyName ( IngParty) .End, "Commonwealth") 
Call ErrorForm. DisplaySuggestion 

Call ErrorForm. Suggestion. Change (. PartyName ( IngParty) .Start, . PartyName ( IngParty) .End, "People") 
Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 
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End Sub 

Private Sub CheckCityOf ( ) 

' — Rule 10.2.1(f): If the name contains "City of," "Town of," "Township of," "Borough of," or "County of" and that phrase is 

not the first word of a party name, then suggest deleting the phrase. 
'» Mayor of the City of Minneapolis v. Jones, 200 U.S. 205, 210 (1980) 

Dim i As Long 
Dim lng Party As Long 
Dim IngPhraseEnd As Long 
Dim IngPhraseStart As Long 



End If 
End If 
Next IngParty 




End With 
End If 
End If 



With Citation. CaseNameClause 

For IngParty = 1 To .PartiesCount 

For i = . PartyName (IngParty) . Start + 1 To . PartyName ( IngParty) . End 



IngPhraseEnd = IsStartOf Phrase ( i , "cityof " , False) 
If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhrased, 
If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhrasefi, 
If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOf Phrased, 
If IngPhraseEnd - 0 Then IngPhraseEnd = IsStartOf Phrase (i , 
If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOfPhrasefi, "countyof", False) 



"townof " , False) 
"townof", False) 
"townshipof " , False) 
"boroughof", False) 



If IngPhraseEnd > 0 Then 

If ActiveDoc. Words. WordsTrim(i - 1) = 
IngPhraseStart = i - 1 

Else 

IngPhraseStart = i 
End If 



'the" Then 



Call ErrorForm. LoadError ( "CaseName CityOf" 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Delete ( IngPhraseStart , 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



IngPhraseStart, IngPhraseEnd) 
IngPhraseEnd) 



r ss End If 

ftz Next i 

Next IngParty 
EM With 



End Sab 



Privet* 

c s 

*sr 

l» 

Sim 
Sim 

Dim 
Dim 
Dim 



Sub CheckPrepositionalPhraseOf Location ( ) 

Rule 10.2.1(f): If a party's name contains "of," and the word "of" is not the first or second word in the party's name, 
then suggest deleting it if it is a prepositional phrase of location. 
Jones Corp. of California v. Smith, 200 U.S. 205, 210 (1980) 

i As Long 
IngParty As Long 
bcJurisdiction As cJurisdiction 
IngEndOfPhrase As Long 
strPriorWordTrim As String 
strNextWordTrim As String 



With Citation. CaseNameClause 

For IngParty = 1 To . PartiesCount 

For i = . PartyName ( IngParty) . Start + 2 To . PartyName (IngParty) . End - 1 

If Ac t iveDoc . Words . WordsTr im ( i ) = "of" Then 

'-- These exceptions are handled elsewhere. 
strPriorWordTrim = ActiveDoc .Words .WordsTrim(i - 1) 
StrNextWordTrim = ActiveDoc .Words .WordsTr im( i + 1) 

If Not (strPriorWordTrim = "state" Or strPriorWordTrim = "commonwealth" Or strPriorWordTrim = "people") _ 
And Not (StrNextWordTrim = "america" Or strNextWordTrim = "am") Then 

Set bcJurisdiction = JurisdictionAtWord ( i + 1, IngEndOfPhrase) 
If Not (bcJurisdiction Is Nothing) Then 

Call ErrorForm. LoadError ( "CaseName PrepositionalPhraseOf Location A" , i, IngEndOfPhrase) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Deleted, IngEndOfPhrase) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

Else 

Call ErrorForm. LoadError ( "CaseName PrepositionalPhraseOfLocation B", i, . PartyName ( IngParty) . End) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (i , . PartyName (IngParty) .End) 

Call ErrorForm. Activate 

If ErrorForm. Result - Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 



End If 
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End If 
End If 



Next i 
Next IngParty 
End With 



34 



End Sub 

Private Sub CheckOf America { ) 

' — Rule 10.2.1(f): If the case name contains "United States of America, 
•» Smith v. United States of America, 200 U.S. 205, 210 (1980) 

Dim i As Long 



suggest deleting "of America. 



For i = Citation. CaseNameClause. ClauseStart To Citation . CaseNameClause . ClauseEnd 
If ActiveDoc .Words .WordsTrim( i, i + 1) = "unitedstates" Then 
If ActiveDoc. Words. WordsTrim(i +2, i + 3) = "ofamerica" _ 
Or ActiveDoc. Words. WordsTrim(i +2, i + 3) - "of am" Then 

Call ErrorForm.LoadError ( "CaseName Of America", i + 2, i + 3) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Deleted + 2, i + 3) 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 
End If 
Next i 

End Sub 

Private Sub CheckBusinessFirmDesignations ( ) 

Rule 10.2.1(h) : If a party's name has more than one phrase that designates the party as being a business entity, then 
\„l suggest deleting the later phrase. 

Smith Corp., Inc. v. Jones, 200 U.S. 200, 205 (1980) 

Dam IngParty As Long 

Di*|i i As Long 

ETiJi j As Long 

Bim IngPhraseEnd As Long 

Mai IngSecondPhraseEnd As Long 

I|^m IngDeleteStart As Long 

CO 

W^£h Citation. CaseNameClause 

#= 

at ' For IngParty = 1 To . PartiesCount 

= For i = . Part yName{ IngParty) . Start + 1 To . Par tyName ( IngParty) . End 



Hi 



PhraseEnd) ) 



IngPhraseEnd = isStartOf BusinessDesignation (i) 
If IngPhraseEnd > 0 Then 

For j = IngPhraseEnd + 1 To . Par tyName ( IngParty) . End 

IngSecondPhraseEnd = IsStartOf BusinessDesignation (j ) 
If IngSecondPhraseEnd > 0 Then 

If ActiveDoc. Words (j - 1) = "," Then 
IngDeleteStart = j - 1 

Else 

IngDeleteStart = j 
End If 

Call ErrorForm. LoadError ( "CaseName CheckBusinessFirmDesi gnat ion" , j, IngSecondPhraseEnd, ActiveDoc .Words (i, lng 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete { IngDeleteStart , IngSecondPhraseEnd) 

Call ErrorForm. Activate 

Exit For 
End If 



End If 



Next 
End If 



Next i 
Next IngParty 

End With 

End Sub 

Private Function IsStartOf BusinessDesignation (WordNumber As Long) As Long 



IsStartOfBusinessDesignation = l£ 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 
If IsStartOfBusinessDesignation = 



iStartOf Phrase (WordNumber , "inc", True} 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 

0 Then IsStartOfBusinessDesignation = 



IsStartOfPhrase 
IsStartOf Phrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 
IsStartOfPhrase 



( WordNumber , 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 
(WordNumber, 



"incorporated", True) 
"inc", True) 
"limited" , True) 
"ltd", True) 
"brothers", True) 
"bros", True) 
"association", True) 
"assn" , True) 
"assoc", True) 
"rr", True) 
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If IsStartOfBusinessDesign 

If IsStartOfBusinessDesi 

If IsStartOfBusinessDesi 

If IsStartOfBusinessDesi 

If isStartOfBusinessDesignation 




0 Ther^^HtartOf BusinessDesignation 
0 Then^JitartOfBusinessDesignation 

0 Then IsStartOfBusinessDesignation 
0 Then IsStartOfBusinessDesignation 
0 Then IsStartOfBusinessDesignation 



IsS 

Is, 
Is! 
Is; 



Of Phrase^^KNumber , 
f Phrasel^rdNumber , 

f Phrase (WordNumber , 
r Of Phrase (WordNumber , 



= isStartOf Phrase (WordNumber, 



"ry", 
"corp 
" co " , 
"na" , 
"fsb" 



True) 
1 , True) 
True) 
True) 
True) 
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End Function 



Private Sub CheckUnionO 



-- Rule 10.2.1(i): If a party's name has a word indicating a union designation, then suggest that the user consult 
Rule 10.2.1 (i) to ensure that it complies with that rule. 



Dim IngParty As Long 

Dim i As Long 

Dim strWordTrim As String 



With Citation .CaseNameClause 

For IngParty = 1 To . PartiesCount 

For i = . Par tyName( IngParty) .Start To . Par tyName (IngParty) , End 
strWordTrim = Ac tiveDoc .Words .WordsTrim( i) 
If strWordTrim = "local" _ 
Or strWordTrim = "union" _ 
Or strWordTrim = "international" _ 
Or strWordTrim = "brotherhood" Then 



Call ErrorForm. LoadError ( "CaseName CheckUnion", . Par tyName ( IngParty) . Start , . Par tyName ( IngParty) . End) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Activate 
End If 



End If 
Next i 
Next IngParty 
End With 



End Sub 



Priva£?| Sub CheckCIRO 

'|T| Rule 10.2.1(j): If a party's name starts with "C.I.R." or "Commissioner of Internal Revenue," then suggest changing the 

phrase to "Commissioner. " 
'^4 CIR v. Jones, 200 U.S. 205, 210 (1980) 

Dim IngParty As Long 

Dfra IngPartyStart As Long 

Ulm IngPhraseEnd As Long 

V4±£h Citation . CaseNameClause 
iff For IngParty = 1 To .PartiesCount 

= IngPartyStart = . Par tyName ( IngParty) . Start 

^ IngPhraseEnd = IsStartOf Phrase ( IngPartyStart , "cir", True) 

^sl If IngPhraseEnd = 0 Then IngPhraseEnd = IsStartOf Phrase (IngPartyStart, "commissionerof internalrevenue" , True) 



Hi 



If IngPhraseEnd > 0 Then 



Call ErrorForm. LoadError ( "CaseName CIR", IngPartyStart, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 
fzz Call ErrorForm. Suggestion. Change (IngPartyStart , IngPhraseEnd, "Commissioner") 

W Call ErrorForm. Activate 

End If 
End If 



Next IngParty 
End With 



End Sub 



Private Sub CheckShouldAbbreviate ( ) 



• — Rule 10.2.2: If one party's name contains a full word from Table 6 or 10, or the full name of a jurisdiction, 

and the word is not the first word of the name of the party, then suggest replacing the word with its abbreviation. 
'» University of Minnesota v. Jones, 200 U.S. 205, 210 (1980). 



Dim IngParty As Long 
Dim i As Long 

Dim strMatchingAbrv As String 
Dim IngNameEnd As Long 



With Citation. CaseNameClause 

For IngParty = 1 To .PartiesCount 

For i = . PartyName (IngParty) . Start + 1 To . Par tyName ( IngParty) . End 

strMatchingAbrv = AbrvForFullName ( i , . PartyName ( IngParty) . End, IngNameEnd) 
If strMatchingAbrv <> " " And strMatchingAbrv <> "U.S." Then 

Call ErrorForm. LoadError ( "CaseName ShouldAbbreviate" , i, IngNameEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Change (i, IngNameEnd, strMatchingAbrv) 

Call ErrorForm. Activate 
End If 

End If 



Next i 
Next IngParty 
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End With 
End Sub 

Private Sub CheckUnitedStates ( ) 

' — Rule 10.2.2: If "United States" is abbreviated, suggest changing it to "United States." 
'» JonesCo of U.S. v. Smith, 200 U.S. 205, 210 (1980) 

Dim IngParty As Long 

Dim i As Long 

Dim IngPhraseEnd As Long 



With Citation.CaseNameClause 

For IngParty = 1 To . PartiesCount 

For i = .PartyName( IngParty) .Start To . PartyName {IngParty) . End 
IngPhraseEnd = IsStartOf Phrase ( i , "us", True) 
If IngPhraseEnd > 0 Then 

Call ErrorForm. LoadError ( "CaseName UnitedStates" , i, IngPhraseEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change (i , IngPhraseEnd, "United States") 

Call ErrorForm. Activate 
End If 



Next i 
Next IngParty 



End With 
End Sub 



Private Sub CheckAbbreviation( ) 
lyfm i As Long 

|f|m abrMatch As cAbbreviation 
:pim bolKnownAbrv As Boolean 
u4m IngPhraseEnd As Long 

*~ I 

iJI Citation. Words. isAbbreviat ion (WordNumber) Then 

•±i : 
Is- 

a i t _._ i ****************************************************************************** 

1 If the case name contains an abbreviation from Table 6 or Table 10 that is 
Iff 1 punctuated incorrectly, suggest replacing it with the correct punctuation. 
3 i ****************************************************************************** 

bolKnownAbrv = False 
%-i Set abrMatch = gTable6 .MatchAbrv {WordNumber , , IngPhraseEnd) 
fU if Not (abrMatch Is Nothing) Then 

s " If Not Citation. Words (WordNumber , IngPhraseEnd) = abrMatch. FullNameTrim Then 

**~ bolKnownAbrv = True 

?»= If Not Citation .Words . IsMatch( Exact , abrMatch . AbrvName , WordNumber) Then 

ins. Suggestion . Format tedText = Citation. Format tedText 

5s- Call Suggestion . ReplaceWords (WordNumber , IngPhraseEnd, abrMatch. AbrvName) 

^ L Call mDisplayError. Change ( "T. 6 Misspelled Abrv", WordNumber, IngPhraseEnd) 

' ~ If gbolStartOver = True Then Exit Sub 

End If 

End If 
End If 

Set abrMatch = gTablelO.MatchAbrv (WordNumber, , IngPhraseEnd) 
If Not {abrMatch Is Nothing) Then 

If Not Citation. Words (WordNumber , IngPhraseEnd) = abrMatch. FullNameTrim Then 

bolKnownAbrv - True 

If Not Citation .Words . IsMatch (Exact , abrMatch. AbrvName, WordNumber) Then 
Suggestion . FormattedText = Citation . FormattedText 

Call Suggestion. ReplaceWords {WordNumber , IngPhraseEnd, abrMatch. AbrvName) 
Call mDisplayError .Change ( "T. 10 Misspelled Abrv", WordNumber, IngPhraseEnd) 
If gbolStartOver = True Then Exit Sub 
End If 

End If 
End If 

• ****************************************************************************** 
' If the case name contains an unknown abbreviation, call it to the user's 
' attention. 

< ****************************************************************************** 



If bolKnownAbrv = False Then 

For i = WordNumber - 1 To WordNumber - 6 Step -1 

Set abrMatch = gAllAbbreviations.MatchAbrv{i, , IngPhraseEnd) 
If Not (abrMatch Is Nothing) Then 

If IngPhraseEnd >= WordNumber Then bolKnownAbrv = True 
Exit For 
End If 
Next i 
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If bolKnownAbrv = False 
Call mDisplayError 
If gbolStartOver = 

End If 



anl^F 10.2.2 Unknown Abrv" , WordNumber , Word^^Hfl^ 
hen Exit Sub ^^^V 



End If 
End If 
End Sub 



Private Sub Checklmproper Abbreviation (WordNumber As Long, EndOf PartyName As Long, ErrorKey As String) 

Dim colFullNames As Collection 
Dim IngEndOfAbrv As Long 
Dim varFullName As Variant 
Dim strErrorKey As String 



1 -- Does a party's name begin with a recognized abbeviation? 

Set colFullNames = FullNamesForAbrvs {WordNumber , EndOf PartyName, IngEndOfAbrv) 
If colFullNames .Count > 0 Then 

If colFullNames .Count = 1 Then 

strErrorKey = ErrorKey & " 2" 

Else 

strErrorKey = ErrorKey & " 3" 
End If 

Call ErrorForm. LoadError (strErrorKey, WordNumber, IngEndOfAbrv) 
If Not ErrorForm. ignoreError Then 

For Each varFullName In colFullNames 

Call ErrorForm. Suggestion . Change (WordNumber , IngEndOfAbrv, varFullName) 
Call ErrorForm. DisplaySuggest ion 
Next varFullName 
Call ErrorForm. Activate 
Exit Sub 
End If 

E^a If 

m 

'^-j Does a party's name begin with a phrase that looks like an abbreviation, but wasn't identified above? 
IngEndOfAbrv = Is Apparent Abrv (WordNumber, EndOf PartyName} 
IngEndOfAbrv > 0 Then 

|fl Call ErrorForm. LoadError (ErrorKey & " 1", WordNumber, IngEndOfAbrv) 

~' = If Not ErrorForm. IgnoreError Then 
f =- Call ErrorForm. Activate 
At % Exit Sub 

*M End If 

Ena If 

End Sub 

M 

Priv$Ep Function IsStartOf Phrase (FirstWord As Long, PhraseTrim As String, IncludeTrailingPeriod As Boolean) As Long 

©am IngFirstWord As Long 
Bim IngLastWord As Long 
Sifli IngPhraseLength As Long 
Dj3n IngCaseClauseEnd As Long 
Static strPhrasest) As String 



If ActiveDoc. Words .WordsTrim (FirstWord) = "" Then Exit Function 

IngCaseClauseEnd = Citation.CaseNameClause.ClauseEnd 

If Not mbolStartOf Phraselnitialized Then 

ReDim strPhrases (Citation . CaseNameClause . ClauseStart To IngCaseClauseEnd, 1 To 10) 
For IngFirstWord = Citation. CaseNameClause . PartyName { 1 ). Start To IngCaseClauseEnd 

For IngPhraseLength = 1 To 10 

IngLastWord = IngFirstWord + IngPhraseLength - 1 
If IngLastWord > IngCaseClauseEnd Then Exit For 

strPhrases ( IngFirstWord, IngPhraseLength) = ActiveDoc .Words. WordsTrim (IngFirstWord, IngLastWord) 
Next IngPhraseLength 

Next IngFirstWord 

mbolStartOfPhraselnitialized = True 
End If 

For IngPhraseLength = 1 To 10 

If strPhrases (FirstWord, IngPhraseLength) = PhraseTrim Then 
IsStartOf Phrase = FirstWord + IngPhraseLength - 1 
If IncludeTrailingPeriod = True Then 

If ActiveDoc. Words {IsStartOf Phrase + 1) = "." Then IsStartOf Phrase = IsStartOf Phrase + 1 
End If 
Exit For 
End If 
Next IngPhraseLength 

End Function 

Private Function Is Apparent Abrv (WordNumber As Long, EndOf PartyName As Long) As Long 



Dim strWord As String 
Dim strNextWord As String 
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If ActiveDoc. Words. WordsTri 



ftumber)^^^" H Then ^fl^^ 
Number ) 



strWord = ActiveDoc .Words 
strNextWord = ActiveDoc .Words (WordNumber + 1) 

If ActiveDoc .Words . SpacesAf terWord(WordNumber) = 0 And ActiveDoc .Words (WordNumber + 1) = "." Then 
IsApparentAbrv = WordNumber 

Do While ActiveDoc .Words . SpacesAf terWord (IsApparentAbrv) = 0 And IsApparentAbrv <= EndOf PartyName 
IsApparentAbrv = IsApparentAbrv + 1 

Loop 

Elself strWord = UCase ( strWord) And Len(strWord) > 1 Then 

IsApparentAbrv = WordNumber 
Elself strNextWord = " ' " Then 

If Ac tiveDoc. Words. SpacesAf terWord( WordNumber + 1) = 0 And Not (ActiveDoc. Words {WordNumber + 2) = "s") Then 
IsApparentAbrv = WordNumber + 2 

End If 
End If 



End If 



End Function 



Private Function FullNamesForAbrvs (WordNumber As Long, EndOf PartyName As Long, Optional EndOfAbrv As Long) As Collection 



Dim IngLastWord As Long 

Dim strPhraseTrim As String 

Dim IngEndOfMatch As Long 

Dim IngLongestMatch As Long 

Dim bcAbrv As cAbbreviation 

Dim bcJurisdiction As cJurisdiction 



Set FullNamesForAbrvs = New Collection 

If Not ( Ac tiveDoc. Words .WordsTrim( WordNumber) = M ") Then 



For IngLastWord = WordNumber + 9 To WordNumber Step -1 
If IngLastWord <= EndOf PartyName Then 

If ActiveDoc .Words ,WordsTrim( IngLastWord) <> " " Then 

^1 strPhraseTrim = ActiveDoc .Words .WordsTrim{ WordNumber, IngLastWord) 

^=1 For Each bcAbrv In AbrvsAll 

If strPhraseTrim = bcAbrv. AbrvNameTrim Then 
£ If bcAbrv . AbrvName <> bcAbrv. FullName Then 

\s Ful 1 Names For Abrvs . Add bcAbrv . Ful IName 

EndOfAbrv = IngLastWord 
iff End If 

ft--. End If 

= "~ Next bcAbrv 

: 3 ; 

t^I For Each bcJurisdiction In Jurisdictions 

If strPhraseTrim = bcJurisdiction. AbrvNameTrim Then 

If be Jurisdiction. AbrvName <> bcJurisdiction. FullName Then 
- FullNamesForAbrvs .Add bcJurisdiction. FullName 

i*\ EndOfAbrv = IngLastWord 

J:: End if 

l|| End If 

isi Next bcJurisdiction 

If FullNamesForAbrvs . Count > 0 Then 
=[" If ActiveDoc .Words (EndOfAbrv + 1) = "." Then EndOfAbrv = EndOfAbrv + 1 

f" Exit Function 

? s *~ End If 

M 

End If 
End If 
Next IngLastWord 



End If 



End Function 



Private Function AbrvForFul IName (WordNumber As Long, EndOf PartyName As Long, Optional EndOfFullName As Long) As String 



Dim IngLastWord As Long 

Dim bcAbrv As cAbbreviation 

Dim IngLongestMatch As Long 

Dim strPhraseTrim As String 

Dim bcJurisdiction As cJurisdiction 



If Not {ActiveDoc .Words . WordsTrim(WordNumber) = " " ) Then 



For IngLastWord = WordNumber + 9 To WordNumber Step -1 

If IngLastWord <= EndOf PartyName And ActiveDoc .Words .WordsTrim( IngLastWord) <> " " Then 



strPhraseTrim = ActiveDoc .Words .WordsTrim( WordNumber , IngLastWord) 



For Each bcAbrv In AbrvsAll 

If bcAbrv. HasAbbreviation Then 

If strPhraseTrim = bcAbrv. Ful lNameTrim Then 

If bcAbrv. AbrvName <> bcAbrv. FullName Then 
AbrvForFul IName = bcAbrv . AbrvName 
EndOfFullName = IngLastWord 
Exit Function 
End If 
End If 
End If 
Next bcAbrv 



For Each bcJurisdiction In Jurisdictions 



Tr^^= bcJu^^^ction. FullNameTrim Then ^^^^ 

j^^^Kion. AnBRme <> bcJur isdiction . Ful IName Then^^^A 

^^^HlName = bcJurisdiction . AbrvName ^^^V 

fWRrJarae = IngLastWord 
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If strPhraseTr^^ = bcJu^^^ction. FullNameTrim Then 
If bcJuriJ 
Abrv f 

EndOfWKNarae = IngLastWord 
Exit Function 
End If 
End If 
Next bcJurisdiction 

End If 
Next IngLastWord 

End If 

End Function 

Private Function LocateWord( SearchFrom As Long, SearchTo As Long, SearchAsTrim As Boolean, ParamArray SearchFor(J) As Long 



Dim IngStep As Long 

Dim IngWord As Long 

Dim strWord As String 

Dim varSearchForWord As Variant 



If SearchTo > SearchFrom Then 
IngStep = 1 

Else 

IngStep = -1 
End If 

For IngWord = SearchFrom To SearchTo Step IngStep 
If SearchAsTrim Then 

strWord = Ac t iveDoc . Words . WordsTrimt IngWord) 

Else 

strWord = Act iveDoc .Words .Words (IngWord) 
End If 

For Each varSearchForWord In SearchFor 
If strWord = varSearchForWord Then 
LocateWord = IngWord 
|^| Exit Function 

_.sL End If 

%k$ Next varSearchForWord 
N^Kit IngWord 

End Faction 

Private Function JurisdictionAtWord(FirstWord As Long, Optional EndOf Phrase As Long) As c Jurisdiction 

Gim i As Long 

Ijpiji IngClauseEnd As Long 

If Act iveDoc .Words. Wo rdsTrim( Firs tWord) = "" Then Exit Function 

fflJClauseEnd = Citation.CaseNameClause.ClauseEnd 
l|of i = FirstWord + 11 To FirstWord Step -1 

If i <= IngClauseEnd Then 
#»a If Not ActiveDoc. Words. WordsTrim(i) = " *• Then 

he* Set JurisdictionAtWord = Jurisdictions . I tern (ActiveDoc . Words . WordsTrim ( FirstWord, i) , True, False, False) 

'•^ If Not JurisdictionAtWord Is Nothing Then 

If ActiveDoc. Words (i +1) = "." Then 
EndOf Phrase = i + 1 

f= = Else 

EndOfPhrase = i 
End If 
Exit For 
End If 

End If 
End If 
Next i 



End Function 
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Option Explicit 

Public Sub CheckClauseOrder ( ) 



■ .^j^^b 



Call CheckReporterClausePosition 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckJurisdictionPosition 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckCourtPosition 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckDatePosition 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End Sub 

Private Sub CheckReporterClausePosition { ) 

' — If the first reporter clause does not follow the case name clause, then suggest moving all contiguous reporter clauses to 
' follow the case name clause. 

Dim bcFirstReporterClause As IClause 
Dim bcLastReporterClause As IClause 
Dim bcCaseNameClause As IClause 
Dim IngMoveToPosition As Long 

If Citation. ReporterClauses. Count > 0 Then 

Set bcFirstReporterClause = Citation. ReporterClauses (1) 

If Not {Citation. CaseNameClause Is Nothing) Then 
Set bcCaseNameClause = Citation. CaseNameClause 

If Not (bcCaseNameClause .NextClause Is bcFirstReporterClause) Then 

||~] Set bcLastReporterClause = Citation. ReporterClauses (1) 

Do While Not (bcLastReporterClause . NextClause Is Nothing) 

If TypeOf bcLastReporterClause .NextClause Is cClauseReporter Then 
\. I Set bcLastReporterClause = bcLastReporterClause . NextClause 

. ': Else 

\l Exit Do 

if* End If 

a? ! Loop 

\*~ If Ac tiveDoc. Words (bcCaseNameClause .ClauseEnd + 1) = "," Then 
ft* IngMoveToPosition = bcCaseNameClause . ClauseEnd + 2 

*ll Else 

=ips IngMoveToPosition - bcCaseNameClause . ClauseEnd + 1 

End If 

t z \ Call ErrorForm. LoadError( "ClauseOrder CheckReporterPosition" , bcFirstReporterClause . ClauseStart, bcLastReporterClause . Claus 

eEnd jK 

||| If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Transpose (bcFirstReporterClause. ClauseStart, bcLastReporterClause . ClauseEnd, IngMoveToPositio 



n) % s l 



Call ErrorForm. Activate 
End If 



End If 



End If 
End If 

End Sub 

Private Sub CheckJurisdictionPosition ( ) 

*-- If the jurisdiction is not the first word in the court date clause, suggest moving it to the correct position. 

Dim bcExpectedPriorClause As IClause 
Dim bolMoveCourt As Boolean 
Dim bolMoveDate As Boolean 
Dim IngMoveToPosition As Long 



If Not (Citation. JurisdictionClause Is Nothing) Then 

'-- Determine which clause should preceed the jurisdiction clause {usually the last reporter clause, but, if there is no 
* reporter clause, then the case name clause.) 

If Citation. ReporterClauses . Count > 0 Then 

Set bcExpectedPriorClause = Citation. ReporterClauses (Citation. ReporterClauses . Count ) 
Elself Not (Citation. CaseNameClause Is Nothing) Then 

Set bcExpectedPriorClause = Citation. CaseNameClause 
End If 

'-- Check whether the jurisdiction clause is in the correct position. 
If Not (bcExpectedPriorClause Is Nothing) Then 

If Not (bcExpectedPriorClause .NextClause Is Citation. JurisdictionClause) Then 

' — Does the court clause follow the jurisdiction clause? 

If Citation. JurisdictionClause. NextClause Is Citation. CourtClause Then 

If Not InStr (ActiveDoc. Words (Citation. JurisdictionClause. JurEnd + 1, Citation. CourtClause . CourtStart - 1), " ) " ) Then 
bolMoveCourt = True 

End If 
End If 
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'-- Does the date c 
If bolMoveCourt = 
If Citation. C 
If Not InS 



bolMoveDate 
End If 
End If 



fo^^Bthe court clause? 
{Then 

use .NextClause Is Citation . DateClause Then 
tiveDoc .Words (Citation. CourtClause . CourtEnd +' 
True 



itation .DateClause . DateStart 



1) , 



» ) " ) Then 



ition) 



osition) 

si 

End) ;== 

s . 

veToPosition) 

H% 



4P 



-)") Then 



' -- Does the date clause follow the jurisdiction clause? 
Else 

If Citation. JurisdictionClause. NextClause Is Citation. DateClause Then 

If Not lnStr( Ac tiveDoc. Words {Citation, CourtClause. CourtEnd + 1, Citation. DateClause. DateStart - 1), 

bolMoveDate = True 
End If 
End If 
End If 

IngMoveToPosition = bcExpectedPriorClause . ClauseEnd + 1 

If ActiveDoc .Words (IngMoveToPosition) = "," Then IngMoveToPosition = IngMoveToPosition + 1 
If ActiveDoc .Words (IngMoveToPosition) = " ( " Then IngMoveToPosition = IngMoveToPosition + 1 

If bolMoveDate = True Then 

'» Jones v. Smith (Minn. Ct. App. 1990), 123 N.W.2d 456 

Call ErrorForm. LoadError ( "Dec JurisdictionPos A", Citation. JurisdictionClause. JurStart , Citation . DateClause .DateEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm . Suggestion . Transpose (Citation . JurisdictionClause . JurStart, Citation . DateClause . DateEnd, IngMoveToPos 

Call ErrorForm. Activate 
End If 

El self bolMoveCourt = True Then 

'» Jones v. Smith, Minn. Ct. App., 123 N.W.2d 456 (1990) 

Call ErrorForm. LoadError ( "Dec JurisdictionPos B", Citation. JurisdictionClause. JurStart , Citation. CourtClause. CourtEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion .Transpose (Citation. JurisdictionClause .JurStart , Citation . CourtClause . CourtEnd, IngMoveToP 

Call ErrorForm. Activate 
End If 

Else 

'» Jones v. Smith, Minn., 123 N.W.2d 456 (Ct. App. 1990) 

Call ErrorForm. LoadError ( "Dec JurisdictionPos C", Citation. JurisdictionClause .JurStart , Citation. JurisdictionClause. Jur 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Transpose (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd , IngMo 

Call ErrorForm. Activate 
End If 



End If 
End If 



End If 



ill 

pad If 
End §ub 

Priv§tfs Sub CheckCourtPosition( ) 

If the court does not follow the jurisdiction or last reporter, then suggest moving it to the correct position. 

Dim bcExpectedPriorClause As IClause 
Dim bolMoveDate As Boolean 
Dim IngMoveToPosition As Long 



If Not (Citation. CourtClause Is Nothing) Then 

'-- Determine which clause should preceed the jurisdiction clause (usually the last reporter clause, but, if there is no 
reporter clause, then the case name clause.) 

If Not (Citation. JurisdictionClause Is Nothing) Then 

Set bcExpectedPriorClause = Citation. JurisdictionClause 
Elself Citation. ReporterClauses .Count > 0 Then 

Set bcExpectedPriorClause = Citation. ReporterClauses (Citation. ReporterClauses . Count) 
End If 

• — Check whether the jurisdiction clause is in the correct position. 
If Not (bcExpectedPriorClause Is Nothing) Then 

If Not (bcExpectedPriorClause. NextClause Is Citation. CourtClause) Then 

' — Does the date clause follow the court clause? 

If Citation. CourtClause. NextClause Is Citation. DateClause Then 

If Not InStr (ActiveDoc. Words (Citation. CourtClause. CourtEnd, Citation. DateClause .DateStart - 1), ")") Then 
bolMoveDate = True 

End If 
End If 

IngMoveToPosition = bcExpectedPriorClause . ClauseEnd + 1 

If ActiveDoc . Words (IngMoveToPosition) = "," Then IngMoveToPosition = IngMoveToPosition + 1 
If ActiveDoc .Words (IngMoveToPosition) = "( M Then IngMoveToPosition = IngMoveToPosition + 1 

If bolMoveDate = True Then 

'» Jones v. Smith (2d Cir. 1980), 123 F.2d 456 

Call ErrorForm. LoadError ( "Dec CourtPos A", Citation. CourtClause .CourtStart , Citation . DateClause .DateEnd) 
If Not ErrorForm. IgnoreError Then 
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Call ErrorFornj^igge^^pi . Transpose ( Citation. Court Clause. Court S^^^^Bat ion. Da teClause. Da teEnd, IngMoveToPosition 



) 



r^^^ge^^^i . Transpose (Citation . Cour tClause . CourtS^j^^^ta 



on) 



Call ErrorFo: 
End If 

Else 

'» Jones v. Smith, 2d Cir. , 123 F.2d 456 {1980} 

Call ErrorForm. LoadError ( "Dec CourtPos B", Citation . CourtClause . CourtStart , Citation. CourtClause . CourtEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Transpose { Citation . CourtClause . CourtStart , Citation . CourtClause . CourtEnd, IngMoveToPosi ti 

Call ErrorForm. Activate 
End If 

End If 

End If 
End If 

End If 

End Sub 

Private Sub CheckDatePosition ( ) 

• — If the date clause does not follow the court clause, jurisdiction clause or last reporter, then suggest moving it to 
' the correct position. 

'» Jones v. Smith, 1980, 123 F.2d 456 (2d Cir.) 

Dim bcExpectedPriorClause As IClause 
Dim IngMoveToPosition As Long 

If Not (Citation.DateClause Is Nothing) Then 

'-- Determine which clause should preceed the jurisdiction clause (usually the last reporter clause, but, if there is no 
reporter clause, then the case name clause.) 

.If Not (Citation. CourtClause Is Nothing) Then 
p Set bcExpectedPriorClause = Citation. CourtClause 
"Mlself Not (Citation. JurisdictionClause Is Nothing) Then 
ijj Set bcExpectedPriorClause = Citation. JurisdictionClause 
tELself Citat ion. ReporterClauses. Count > 0 Then 

" £ Set bcExpectedPriorClause = Citation. ReporterClauses (Citation. ReporterClauses .Count ) 
"^Ehd If 

%f\-- Che 

ijf Not (bcExpectedPriorClause Is Nothing) Then 

f" If Not (bcExpectedPriorClause. NextClause Is Citation.DateClause) Then 
IngMoveToPosition = bcExpectedPriorClause . ClauseEnd + 1 

If ActiveDoc -Words ( IngMoveToPosition) = " , " Then IngMoveToPosition = IngMoveToPosition + 1 
' : If ActiveDoc. Words (IngMoveToPosition) = "(" Then IngMoveToPosition = IngMoveToPosition + 1 

Call ErrorForm. LoadError( "Dec DatePos", Citation. DateClause.DateStart, Citation. DateClause . DateEnd) 

If Not ErrorForm. IgnoreError Then 
ffj Call ErrorForm. Suggestion. Transpose (Citation. DateClause.DateStart, Citation. DateClause . DateEnd, IngMoveToPosition) 

Call ErrorForm. Activate 
fili End If 

? K = End If 
rEtid If 

End SI=f 



End Sub 
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Option Explicit 
Public Sub CheckDateO 



Call CheckDateFormatting 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingDate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End Sub 

Private Sub CheckDateFormatting ( ) 

' — If the date clause specifies the month and date, but the date is formatted incorrectly, then suggest replacing the 
date clause with a date in the correct format. 

' ! ! TO DO: When support for unpublished reporters is added, check whether a full date is being used for a citation that 
' requires only a year, or a year is being used for a citation that requries a full date. 

Dim strDateCorrectFormat As String 
Dim strDateAndYearOnly As String 
Dim strMonthLong As String 
Dim strMonthBluebook As String 

' -- Run this subroutine only if the date is a long date (not just a year) , so it is longer than one word. 

If Not (Citation.DateClause Is Nothing) Then 

If Citation.DateClause.DateEnd > Citation. DateClause .DateStart Then 



'-- Check whether the date is formatted correctly. 

StrDateCorrectFormat = DateBluebookFormat {Citation . DateClause . FullDate) 
If Citation. DateClause. Text <> strDateCorrectFormat Then 



StrDateAndYearOnly = Format $ (Citation. DateClause. Text, " d, yyyy") 
^] strMonthBluebook = MonthBluebookFormat (Citation. DateClause . FullDate) 

;a 2 strMonthLong = Format$ (Citation. DateClause. FullDate, "mmmm") 

m 

^= ' — Check whether the month is formatted incorrectly and the remainder of the date is formatted correctly. If the only 

"= ' problem is that the month is abbreviated incorrectly, then offer a specific error message suggesting only to 

\ t i ' replace the month and showing the table of correct abbreviations for months. 

y| If Right$ (Citation. DateClause. Text, Len (strDateAndYearOnly) ) = StrDateAndYearOnly _ 

; , And Not (strMonthBluebook = ActiveDoc .Words (Citation .DateClause .DateStart) _ 

f s - Or strMonthBluebook = ActiveDoc .Words (Citation. DateClause. DateStart, Citation. DateClause. DateStart + 1)) Then 

' — Display a different error message based on whether the Bluebook-formatted month is abbreviated or 
ill ' is not abbreviated. 
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If ActiveDoc .Words (Citation.DateClause .DateStart +1) = ■ . " Then 



'» Jones v. Smith, 123 N.W.2d 456 (Minn. Jun. 10, 1980) 

Call ErrorForm. LoadError( "Dec DateFormatting A", Citation.DateClause. DateStart, Citation.DateClause.DateEnd, strMon 
thLong^ strMonthBluebook) 

£~| If Not ErrorForm. IgnoreError Then 

f " Call ErrorForm. Suggestion. Change (Citation.DateClause .DateStart, Citation.DateClause.DateEnd, strDateCorrectForm 

at) f-'- 

f-h Call ErrorForm. Activate 

End If 



Else 



•» Jones v. Smith, 123 N,W.2d 456 (Minn. August 10, 1980) 

Call ErrorForm. LoadError( "Dec DateFormatting B" , Citation. DateClause. DateStart , Citation.DateClause.DateEnd, strMon 
thLong , s t r Mon thB 1 uebook ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change (Citation. DateClause . DateStart, Citation . DateClause . DateEnd, StrDateCorrectForm 

at) 

Call ErrorForm. Activate 
End If 

End If 

1 -- Otherwise, raise a general error suggesting that the entire date clause be replaced with the correctly- formatted 
1 date. 

'» Jones v. Smith, 123 N.W.2d 456 (Minn. 6/10/1980) 
Else 

Call ErrorForm. LoadError ( "Dec DateFormatting C", Citation. DateClause. DateStart , Citation.DateClause.DateEnd) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change { Citation . DateClause . DateStart , Citation . DateClause . DateEnd, strDateCorrectFormat ) 

Call ErrorForm. Activate 
End If 



End If 



End If 



End If 
End If 



End Sub 



Private Function DateBluebookFormat (SourceDate As Variant) As String 

' — From the supplied date, returns a string with the date formatted in the correct Bluebook format — 



- e.g, "Aug. 3, 1970" 
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Dim strDateLongMonth As StrincJ 
Dim strMonthLong As String ^ 
Dim strMonthBluebook As String 



' — First, format the string into "August 3, 1970" format using the Format function. 
strDateLongMonth = Formats (SourceDate, "mmmm d, yyyy") 

'-- Next, replace the long month with the correct abbreviation for the month. E.g., "August" with "Aug." 

strMonthLong = Format$ (SourceDate, "mmmm") 
StrMonthBluebook = MonthBluebookFormat (SourceDate) 
If strMonthLong <> strMonthBluebook Then 

DateBluebookFormat = Replace (strDateLongMonth, strMonthLong, strMonthBluebook) 

Else 

DateBluebookFormat = strDateLongMonth 
End If 

End Function 

Private Function MonthBluebookFormat (SourceDate As Variant) As String 

■ — Returns the correct Bluebook abbreviation for a given month. (See Bluebook page 298.) 

Dim IngMonth As Long 

IngMonth = CLng (Month (SourceDate) ) 

MonthBluebookFormat = Choose ( IngMonth, "Jan.", "Feb.", "Mar.", "Apr.", "May", "June", "July", "Aug.", "Sept.", "Oct.", "Nov.", "Dec") 
End Function 

Private Sub CheckMissingDate ( ) 

' — If there is no date clause, suggest inserting a placeholder for the year. 
'» Jones v. Smith, 123 N.W.2d 456 (Minn. Ct. App.) 

'JU!i TO DO: When I add support for nonpublished cases, the program should suggest adding a placeholder for unpublished cases 
'iter in the full date (mmm dd, yyyy) format. 

'€1 

tfijCitation.DateClause Is Nothing Then 

^1 Call ErrorForm. LoadError ( "Dec MissingDate" , 0, 0) 
: f % If Not ErrorForm. IgnoreError Then 

7 ?3 If Not (Citation . CourtClause Is Nothing) Then 

hsb Call ErrorForm. Suggestion. Insert (Citation. CourtClause. CourtEnd + 1, " ") 

Elself Not (Citation . JurisdictionClause Is Nothing) Then 

IjiJ Call ErrorForm. Suggestion. Insert (Citation. JurisdictionClause. JurEnd + 1, " ") 

!f= Else 

^r™ Call ErrorForm. Suggestion . Insert (AppropriateDatePosition (Citation) , "( )") 

£ End If 

Call ErrorForm. Activate 
|~1 End If 

it ; 

£Aa if 
End lab 
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'-- Copyright 2001 by Robert L. Jacob^j 
Option Explicit 
Public Sub CheckEditorO 

Dim bcReporterClause As cClauseReporter 



ob^j^ 



For Each bcReporterClause In Citation . ReporterClauses 

Call CheckMissingEditorClause (bcReporterClause) 
If ErrorForm. Result = Change Or ErrorForm. Result = 

Call ChecklncorrectEditorAbrv (bcReporterClause) 
If ErrorForm. Result = Change Or ErrorForm. Result = 

Call ChecklncorrectEditor (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = 



Cancel Then Exit Sub 
Cancel Then Exit Sub 
Cancel Then Exit Sub 



Cal 1 Checklncorrec tEdi torVolumeNumber { bcReporterClause ) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call CheckMissingMainReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Call CheckParallelEditorShouldBeParenthetical (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Next bcReporterClause 

End Sub 

Private Sub CheckMissingEditorClause (CurrentClause As cClauseReporter) 

' — If the reporter clause should have an editor parenthetical, but doesn't, then suggest inserting an editor parenthetical. 
» Jones v. Smith, 40 U.S. 500, 505 (1839) 
'» Jones v. Smith, 2 Ky. 500, 505 (1803) 

Jtat 

D^mj bcExpectedReporter As cReporter 
Djfjtfc IngExpectedVolumeNumber As Long 

w 

IX XurrentClause. EditorClause Is Nothing Then 

2 5f Set bcExpectedReporter = ExpectedEditorReporter (CurrentClause) 
H = 

L.L If Not (bcExpectedReporter Is Nothing) Then 

^ IngExpectedVolumeNumber = ExpectedVolumeNumber (CurrentClause, bcExpectedReporter) 

; = - Call ErrorForm. LoadError ( "Rep MissmgEditorParenthetical" , CurrentClause . ClauseStart , CurrentClause . ClauseEnd, Ac tiveDoc .Words ( 

Currej&feClause . VolumeNumberLocation) , CurrentClause . Reporter . FullName, bcExpectedReporter . FullName) 

If Not ErrorForm. IgnoreErr or Then 

Call ErrorForm. Suggestion. Insert (CurrentClause .AbrvEnd + 1, Paren the ticalText (IngExpectedVolumeNumber, bcExpectedReporter)) 

^ = J Call ErrorForm. Activate 

1:1 End If 

rs ; 

= 5.-7 

End If 
|nd if 

End |g> 

Private Sub ChecklncorrectEditorAbrv (CurrentClause As cClauseReporter) 

' — If the editor reporter is not punctuated or spelled correctly, then suggest correcting it. 
'» Jones v. Smith, 69 U.S. (2 Walll) 500, 505 (1870) 

If Not (CurrentClause. EditorClause Is Nothing) Then 
With CurrentClause. EditorClause 

If .AbrvText <> . Reporter .AbrvName Then 

Call ErrorForm. LoadError ( "Rep IncorrectEditorAbrv" , .AbrvStart, .AbrvEnd, . Reporter . FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change ( .AbrvStart , .AbrvEnd, .Reporter .AbrvName) 

Call ErrorForm. Activate 
End If 

End If 

End With 
End If 

End Sub 

Private Sub ChecklncorrectEditor (CurrentClause As cClauseReporter) 

-- If the current clause has an associated editor clause, but the editor clause is not a correct editor for the 

current clause, then suggest deleting the editor clause if an editor clause is not required, or changing the editor 
to the correct editor if one is required. 
» Jones v. Smith, 200 U.S. (10 S. Ct) 500, 505 (1980) 
» Jones v. Smith, 50 U.S. (10 S. Ct.) 500, 505 (1805) 

Dim bcExpectedReporter As cReporter 
Dim IngExpectedVolumeNumber As Long 



If Not (CurrentClause. EditorClause Is Nothing) And CurrentClause. VoluraeNumber > 0 Then 
With CurrentClause. EditorClause 



Name) 
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Set bcExpectedRep^^^r = Expecte^^^torReporter (CurrentClause) 

— If the repor^^^Bhould not have an editor clause, then sugges^^^Bt ing it. 
If bcExpectedRep<BBK Is Nothing Then 

Call ErrorForm. LoadError ( "Rep IncorrectEditor A", .ClauseStart, .ClauseEnd, .Reporter .FullName, CurrentClause . Reporter .Full 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (. ClauseStart, .ClauseEnd) 
Call ErrorForm. Activate 
End If 

' — If reporter should have an editor clause, but the current editor reporter is incorrect, then suggest changing it. 
Elself Not (bcExpectedReporter Is .Reporter) Then 

IngExpectedVolumeNumber = ExpectedVolumeNumber {CurrentClause, bcExpectedReporter) 

Call ErrorForm. LoadError ("Rep IncorrectEditor B", .ClauseStart, .ClauseEnd, . Reporter .FullName, CurrentClause . Reporter . Full 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (. ClauseStart, .ClauseEnd, ParentheticalText { IngExpectedVolumeNumber , bcExpectedReporte 

Call ErrorForm. Activate 
End If 

End If 



Name) 
r>) 



End With 
End If 

End Sub 

Private Sub ChecklncorrectEditorVolumeNumber (CurrentClause As cClauseReporter) 

'-- If the current clause has an editor clause and the volume number does not correspond with the volume number for the 
' parallel main reporter clause, then suggest correcting the editor clause's volume number. 

Dim IngExpectedVolumeNumber As Long 
Dim strSuggestedChange As String 

iijsNot (CurrentClause. EditorClause Is Nothing) And CurrentClause. VolumeNumber > 0 Then 

With CurrentClause . EditorClause 

\j ' Does the editor clause have the correct editor for this main clause's volume number and reporter? 
s c - If ExpectedEditorReporter (CurrentClause) Is .Reporter Then 
4; ! 

IngExpectedVolumeNumber = ExpectedVolumeNumber (CurrentClause, .Reporter) 

H\ '-- is the editor clause missing a volume volume when one is required? 

;.Ba *» Jones v. Smith, 70 U.S. (Wall.) 500, 505 (1863) 

4?- If . VolumeNumberLocation = 0 And IngExpectedVolumeNumber > 0 Then 



Call ErrorForm. LoadError ( "Rep IncorrectEditorVolumeNumber 1", .AbrvStart, .AbrvEnd, . Reporter . FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert ( .AbrvStart, IngExpectedVolumeNumber) 

Call ErrorForm. Activate 
End If 

■ — Does the editor clause have a volume number when none is required? 
'» Jones v. Smith, 2 Ky. (5 Sneed) 500, 505 (1803) 

Elself .VolumeNumberLocation > 0 And IngExpectedVolumeNumber = 0 Then 



N- Call ErrorForm. LoadError ( "Rep IncorrectEditorVolumeNumber 2", .VolumeNumberLocation, .VolumeNumberLocation, . Reporter. F 

ullName, CurrentClause . Reporter . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete ( .VolumeNumberLocation, .VolumeNumberLocation) 
Call ErrorForm. Activate 
End If 

' — Is the editor clause's volume number inconsistent with the correct volume number? 
'» Jones v. Smith, 70 U.S. (5 Wall.) 500, 505 (1863) 

Elself .VolumeNumber > 0 And .VolumeNumber <> IngExpectedVolumeNumber Then 

Call ErrorForm. LoadError ( "Rep IncorrectEditorVolumeNumber 3", .VolumeNumberLocation, .AbrvEnd, CStr (IngExpectedVolumeNu 
mber) , .Reporter . FullName, Act iveDoc .Words (CurrentClause .VolumeNumberLocation, CurrentClause .AbrvEnd) ) 

If Not ErrorForm. IgnoreError Then 

strSuggestedChange = IngExpectedVolumeNumber & " " & ActiveDoc .Words ( .AbrvStart , .AbrvEnd) 
Call ErrorForm. Sugges t ion. Change { .VolumeNumberLocation, .AbrvEnd, strSuggestedChange) 
Call ErrorForm. Activate 

End If 

End If 

End If 

End With 
End If 

End Sub 

Private Sub CheckMissingMainReporter (CurrentClause As cClauseReporter) 

' -- If the citation contains a editor reporter clause but is missing an associated main reporter clause, then suggest 

' inserting a main reporter clause. 

'» Jones v. Smith, 10 Wall. 500, 505 (1863) 



Dim bcMainReporter As cReporter 
Dim IngMainVolumeNumber As Long 
Dim bcEditor As cReporter 
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a^^^^portHPhen ^^^^ 



If CurrentClause . Reporter . IsEdjj 
With CurrentClause 

If MainReporterClause (CurrentClause) Is Nothing Then 



Set bcEditor = .Reporter 

Set bcMainReporter = ExpectedMainReporter (CurrentClause) 
If Not (bcMainReporter Is Nothing) Then 

IngMainVolumeNumber = .VolumeNumber + (bcEditor . MainReporterVolumeFirst - bcEditor . VolumeStart) 



Call ErrorForm. LoadError ( "Rep Miss ingMainRepor ter " , CurrentClause .ClauseStart, CurrentClause . ClauseEnd, bcEditor . FullNa 
me, bcMainReporter . FullName) 

If Not ErrorForm. IgnoreError Then 

Suggest adding a main reporter clause with the current editor as a parenthetical. 
Call ErrorForm. Suggestion. Insert ( .ClauseStart, CStr (IngMainVolumeNumber) & " " & bcMainReporter .AbrvName & " (") 
Call ErrorForm. Suggest ion. Insert ( .AbrvEnd + 1, ")") 
Call ErrorForm. DisplaySuggest ion 

' — Suggest adding the main reporter clause as a parallel citation. 

Call ErrorForm. Suggest ion. Insert (CurrentClause. ClauseStart, CStr ( IngMainVolumeNumber) & " " & bcMainReporter .AbrvNa 

me & " , " ) 

Call ErrorForm. Activate 



End If 
End If 



End If 



End With 
End If 



End Sub 



Private Sub CheckParallelEditorShouldBeParenthetical (ReporterClause As cClauseReporter) 

'j- If the citation has both a main reporter clause and an editor clause as a separate parallel citation, but the editor 
'PJ clause's pagination is the same as the main reporter clause, then suggest changing the parallel citation to a 
' :£ ". parenthetical citation. 

•ibl Jones v. Smith, 69 U.S. 500, 505, 2 Wall. 500 (1870) 

EJS^tf bcMainReporterClause As cClauseReporter 
Ejjiif strParentheticalText As String 

y i 

I3T = Repor terClause . Reporter . IsEdi torRepor ter Then 
^1 With ReporterClause 

4>= Set bcMainReporterClause = MainReporterClause (ReporterClause) 

If Not (bcMainReporterClause Is Nothing) /Then 
£ If . FirstPageNumber > 0 _ 

# s Ss And .FirstPageNumber = bcMainReporterClause . FirstPageNumber Then 

strParentheticalText = ParentheticalText { .VolumeNumber, .Reporter) 

Call ErrorForm. LoadErr or ( "Rep ParallelEditorShouldBeParenthetical" , .ClauseStart, .ClauseEnd, bcMainReporterClause. Repo 
Reporter . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete ( .ClauseStart, .ClauseEnd) 

Call ErrorForm. Suggestion. Insert (bcMainReporterClause. AbrvEnd + 1, strParentheticalText) 
Call ErrorForm. Activate 
End If 



rter ^FullName, 



End If 
End If 



End With 
End If 



End Sub 



Private Function ExpectedEditorReporter (MainReporterClause As cClauseReporter) As cReporter 
'-- Identify the correct editor reporter for this main reporter. 
Dim bcEditorReporter As cReporter 



If MainReporterClause. VolumeNumber > 0 Then 

For Each bcEditorReporter In MainReporterClause . Reporter . Editors 

'-- Does this editor have the correct range of volume numbers for the main reporter's volume number? 

If MainReporterClause. VolumeNumber >= bcEditorReporter . MainReporterVolumeFirst And MainReporterClause .VolumeNumber <= bcEditorR 
eporter . MainReporterVolumeLast Then 

Set ExpectedEditorReporter = bcEditorReporter 
Exit Function 
End If 
Next bcEditorReporter 
End If 

End Function 

Private Function ExpectedVolumeNumber (ReporterClause As cClauseReporter, Edi torRepor ter As cReporter) As Long 

'-- Return the volume number for an editor that is expected based on the volume number of the main reporter. 

If ReporterClause. VolumeNumber > 0 Then 

If EditorReporter .VolumeStart = Edi torRepor ter . VolumeEnd Then 
ExpectedVolumeNumber = 0 
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Else 



ExpectedVolumeNumber = Re^^^^rCT^fe .VolumeNumber - EditorReporter .MainRe^^^^WumeFirst + EditorReporter . VolumeStart 
End If 
End If 



End Function 



Private Function ExpectedMainReporter (EditorReporterClause As cClauseReporter ) As cReporter 
' — Identify the main reporter that is associated with the supplied editor clause. 



Dim bcReporter As cReporter 

Dim bcEditorReporter As cReporter 

Dim bcCurrentEditor As cReporter 



Set bcCurrentEditor = EditorReporterClause .Reporter 

For Each bcReporter in EditorReporterClause. Reporter . Parent . Reporters 

• — Does this reporter have any associated editor reporters that matches the current editor reporter? 
For Each bcEditorReporter In bcReporter. Editors 
If bcEditorReporter Is bcCurrentEditor Then 
Set ExpectedMainReporter = bcReporter 
Exit Function 
End If 
Next bcEditorReporter 
Next bcReporter 

End Function 

Private Function MainReporterClause (EditorReporterClause As cClauseReporter) As cClauseReporter 

'-- Returns the main reporter clause that is associated with this editor reporter clause. 

Dim bcReporterClause As cClauseReporter 
Dim bcEditor As cReporter 



For Each bcReporterClause In Citation. ReporterClauses 

i-. For Each bcEditor In bcReporterClause . Reporter .Editors 

4- J If bcEditor Is EditorReporterClause. Reporter Then 

^f* Set MainReporterClause = bcReporterClause 

Exit Function 

\\ End If 

. ! Next bcEditor 
Neslt bcReporterClause 

! H 

End Friction 

Private Function ParentheticalText (ByVal VolumeNumber As Long, ByVal Editor As cReporter) As String 

=*: a 

'r--^ Returns the correct volume/editor name combination that should be used in a parenthetical, based on the main 
'4j== reporter clause and the editor to be inserted. 

ft VolumeNumber = 0 Then 

f~\ ParentheticalText = "(" & Editor .AbrvName & ")" 

|e| ParentheticalText = "(" & VolumeNumber & " " & Editor .AbrvName & ")" 
Sad If 

End Sanction 
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Public Sub CheckJurAndCourt ( ) 

Call CheckMissingJurisdiction 

If ErrorForm, Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingCourt 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklnconsistentJurisdictionAndCourt 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckExtraneousJurisdiction 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckExtraneousCourtAndJurisdiction 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckJurisdictionAndCourt Spelling 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckValidYear 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
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* — Copyright 2001 by Robert L^^acobson. 

Option Explicit 



End Sub 



Private Sub CheckMissingJurisdiction ( ) 



' — If the jurisdiction could not be determined, then suggest adding a jurisdiction clause for every jurisdiction that is a 
' good match for the reporters, court clause and date. Also suggest adding a court clause if the court could not be 
' determined. 

Dim colCompatibleJurisdictions As Collection 
Dim bcJurisdiction As cJurisdiction 
Dim colCompatibleCourts As Collection 
Dint. bcCourt As cCourt 

Ska? 

ir'Ci tat ion. Jurisdiction Is Nothing And Citation . JurisdictionClause Is Nothing Then 
Hi 

If ] 

'-- If there is a recognized court clause in the citation, then only suggest adding a jurisdiction. 
^5 ■» Jones v. Smith, 123 N.W.2d 456 (Ct. App. 1980) 
Isi '» Jones v. Smith, 123 Misc. 2d 456 (Ct. CI. 1980) 

%s.£ Set colCompatibleJurisdictions = CompatibleJurisdictions 

is= Select Case colCompatibleJurisdictions .Count 

4h Case 0 

_ Call ErrorForm. LoadError ( "Dec MissingJurisdiction Bl", Citation. CourtClause.CourtStart, Citation . CourtClause . CourtEnd) 

le- Case 1 

Call ErrorForm. LoadError ( "Dec MissingJurisdiction B2", Citation. CourtClause.CourtStart, Citation . CourtClause . CourtEnd) 
= Case Is > 1 

H# Call ErrorForm. LoadError ( "Dec MissingJurisdiction B3" , Citation. CourtClause.CourtStart, Citation. CourtClause. CourtEnd) 

End Select 

'hzi If Not ErrorForm. IgnoreError Then 

For Each bcJurisdiction In colCompatibleJurisdictions 
l ? J Call ErrorForm. Suggestion. Change (Citation. CourtClause.CourtStart, Citation . CourtClause . CourtEnd, bcJurisdiction .AbrvNam 

e & ! ." & Citation. CourtClause. Text) 

- ?p= Call ErrorForm. DisplaySuggestion 

Next bcJurisdiction 
Call ErrorForm. Activate 
End If 



Else 



'-- If there is no recognized court clause, then suggest adding a juridsiction clause and court clause. 
'» Jones v. Smith, 123 N.W.2d 456 (1980) 
'» Jones v. Smith, 123 A.D.2d 456 (1980) 



Set colCompatibleCourts = CompatibleCourts 
Select Case colCompatibleCourts. Count 
Case 0 

Call ErrorForm. LoadError ( "Dec MissingJurisdiction Al", 0, 0) 
Case 1 

Call ErrorForm. LoadError ( "Dec MissingJurisdiction A2", 0, 0) 
Case Is > 1 

Call ErrorForm. LoadError ( "Dec MissingJurisdiction A3", 0, 0) 
End Select 



If Not ErrorForm. IgnoreError Then 

For Each bcCourt In colCompatibleCourts 

Call ErrorForm. Suggestion. Insert (AppropriateJurisdictionPosition (Citation) , JurisdictionAndCourtText (bcCourt ) ) 
Call ErrorForm. DisplaySuggestion 
Next bcCourt 
Call ErrorForm. Activate 
End If 



End If 



End If 



End Sub 

Private Function JurisdictionAndCourtText (Court As cCourt) 
If Court . Jurisdictionlmplicit _ 
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Es^tothi 



Or Not (Citation. CourtClause Is^tothingJ^^Bn 
JurisdictionAndCourtText =^^^B : . Abi^BRe 

Else 

JurisdictionAndCourtText = ^fl^t . Parent . AbrvName & " " & Court .AbrvName 
End If 



End Function 

Private Sub CheckMissingCourt ( ) 

' — If the jurisdiction was determined though parse but the court was not and there is no court clause, then suggest adding a 

court clause for every court that is a good match for the reporters and date. 
'» Jones v. Smith, 123 F.2d 456 (1980) 

Dim colCompatibleCourts As Collection 

Dim bcCourt As cCourt 

Dim InglnsertionPosition As Long 



If Not Citation. Jurisdiction Is Nothing Then 

If Citation. Court Is Nothing And Citation. CourtClause Is Nothing Then 

Set colCompatibleCourts = CompatibleCourts (Citation. Jurisdiction) 
Select Case colCompatibleCourts .Count 
Case 0 

Call ErrorForm. LoadError ( "Dec MissingCourt 1", 0, 0) 
Case 1 

Call ErrorForm. LoadError ( "Dec MissingCourt 2" , 0, 0) 
Case Is > 1 

Call ErrorForm. LoadError ( "Dec MissingCourt 3", 0, 0) 
End Select 



If Not ErrorForm. IgnoreError Then 

InglnsertionPosition = AppropriateCourt Posit ion (Citation) 
For Each bcCourt In colCompatibleCourts 

Call ErrorForm. Suggestion. Insert (InglnsertionPosition, bcCourt .AbrvName) 
Call ErrorForm. DisplaySuggest ion 
Next bcCourt 
„ Call ErrorForm. Activate 

Q End If 

ILl End If 
Eftd If 

End SuJB 

Priva^4 Sub ChecklnconsistentJurisdictionAndCourt ( ) 
i 

5 = 3 

If the court clause is inconsistent with the citation's jurisdiction, then suggest either replacing the court clause 
fj% with a compatible jurisdiction, or replacing the jurisdiction clause with a compatible court. 

4ti NB: This sub ONLY checks when there is a court clause that disagrees with a jurisdiction clause. 

Dam bcCourt As cCourt 

bcJurisdiction As cJurisdiction 

jjSs 3 

jU> Is the court clause's parent jurisdiction diferent than the jurisdiction clause's jurisdiction? 

I t L Not (Citation. JurisdictionClause Is Nothing) And Not (Citation . CourtClause Is Nothing) Then 
? B " If Not (Citation. CourtClause. Court. Parent Is Citation. JurisdictionClause .Jurisdiction) Then 

fn 

? B - '-- If the court clause's parent jurisdiction is federal and a state jurisdiction clause immediately follows the court clause, 

j&si ' do not flag an error — this is handled in CheckExtraneousJurisdictionOrCourt . 

If Not (Ci tat ion. CourtClause. Court . Parent .FullName = "Federal" _ 

And Citation. JurisdictionClause. JurStart = Ac tiveDoc .Words . NextFullWord( Citation . CourtClause . CourtEnd) ) Then 



If Citation . CourtClause . Court . Parent Is Citation. Jurisdiction Then 
'» Jones v. Smith, 123 F.2d 456 (Minn. 2d Cir. 1990) 

Call ErrorForm. LoadError ( "Dec InconsistentJurAndCourt 1", Citation. JurisdictionClause. JurStart, Citation. JurisdictionCl 
ause . JurEnd, Citation . Jurisdiction . FullName , Citation . CourtClause . Court . FullName , Citation . CourtClause . Text , Citation . JurisdictionClause . Ju 
r i s d i c t i on . Ful IName ) 

Elself Citation. CourtClause. Court . Jurisdictionlmplicit Then 
'» Jones v. Smith, 123 N.W.2d 456 (Minn. 2d Cir. 1990) 

Call ErrorForm. LoadError ( "Dec InconsistentJurAndCourt 2", Citation. CourtClause .CourtStart , Citation. CourtClause. CourtEn 
d, Citation. Jurisdiction. FullName, Citation . JurisdictionClause .Text , Citation. CourtClause . Court . FullName) 
Else 

'» Jones v. Smith, 123 N.W.2d 456 (Minn. Ct. CI. 1990) 

Call ErrorForm. LoadError ( "Dec InconsistentJurAndCourt 3", Citation. CourtClause .CourtStart , Citation. CourtClause. CourtEn 
d, Citation . Jurisdiction . FullName, Citation . JurisdictionClause . Text) 
End If 



If Not ErrorForm. IgnoreError Then 



'-- Suggest replacing or deleting the jurisdiction. 

If Citation . CourtClause . Court .Jurisdictionlmplicit Then 

Call ErrorForm. Suggestion . Delete (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd) 

Call ErrorForm. DisplaySuggestion 

Else 

For Each bcJurisdiction In CompatibleJurisdictions 

Call ErrorForm. Suggestion. Change (Citation. JurisdictionClause .JurStart, Citation . JurisdictionClause . JurEnd, bcJu 

risdiction, AbrvName) 

Call ErrorForm. DisplaySuggestion 
Next bcJurisdiction 
End If 



'-- Suggest replacing the court clause. 

For Each bcCourt In CompatibleCourts (Citation. JurisdictionClause .Jurisdiction) 
If bcCourt .AbrvName = Then 

Call ErrorForm. Suggestion . Delete (Citation . CourtClause . CourtStart , Citation . CourtClause . CourtEnd) 
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Call Err^Fprm. I^^^aySuggestion 



me) 




oil^^^^r 



Else 

Call Er^^^Brm. Suggestion . Change (Citation . CourtClause . Coi^^^^fr t , Citation . CourtClause . CourtEnd, bcCourt . AbrvNa 

Call ErrorForm. DisplaySuggestion 
End If 
Next bcCourt 

Call ErrorForm. Activate 

End If 

End If 

End If 
End If 

End Sub 

Private Sub CheckExtraneousJurisdiction ( ) 

■ -- Suggest deleting the jurisdiction clause if the jurisdiction is redundant because it is identified by the court clause. 

If Not (Citation. JurisdictionClause Is Nothing) And Not (Citation. CourtClause Is Nothing) Then 
If CourtClauseIDsJurisdiction( ) Then 

If Citation. Jurisdiction. FullName = "Federal" _ 

And Citation .JurisdictionClause .Jurisdiction. FullName = "Federal" Then 

' — If a federal jurisdiction clause is redundant because it is identified by a federal court clause, then suggest deleting 

the jurisdiction clause. 
'>> Jones v. Smith, 123 F.2d 456 (Fed. 8th Cir. 1980) 

Call ErrorForm. LoadError ( "Dec ExtraneousJurisdiction A", Citation. JurisdictionClause. JurStart, Citation . JurisdictionClause . 
JurEnd, Citation . Court . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Delete (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd) 
Call ErrorForm. Activate 

::: End if 



Elself Citation. Jurisdiction. FullName = "Federal" _ 

And Citation. JurisdictionClause. Jurisdiction. FullName <> "Federal" _ 
\\ And ClausesAreAdjacent (Citation. JurisdictionClause, Citation. CourtClause) Then 

y| ' — If a non-federal jurisdiction clause is inconsistant with a federal court clause, and the jurisdiction clause 

i . ' immediately follows a federal court clause, then suggest deleting the jurisdiction clause. (If the jurisdiction clause 

' does not immediately follow the court clause, that error is handled by ChecklnconsistentJurisdictionAndCourt . ) 

'» Jones v. Smith, 123 F.2d 456 (8th Cir. (Minn.) 1980) 

J[= Call ErrorForm. LoadError ( "Dec ExtraneousJurisdiction B" , Citation. JurisdictionClause. JurStart, Citation. JurisdictionClause . 

JurEnd, Citation . Court . FullName) 

H If Not ErrorForm. IgnoreError Then 

j==| Call ErrorForm. Suggestion. Delete (Citation. JurisdictionClause. JurStart , Citation. JurisdictionClause . JurEnd) 

Call ErrorForm. Activate 
ff I End If 



Elself Citation .Jurisdiction. FullName <> "Federal" _ 

And Citation. JurisdictionClause. Jurisdiction Is Citation. Jurisdiction Then 



' — If the state jurisdiction clause is redundant because it is identified by the state court clause, then suggest deleting 
' the jurisdiction clause, 
fisb '» Jones v. Smith, 123 N.W. 456 (N.D. Dakota 1880) 

Call ErrorForm. LoadError ( "Dec ExtraneousJurisdiction C", Citation. JurisdictionClause. JurStart, Citation. JurisdictionClause . 
JurEnd, Citation . Court . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Delete (Citation. JurisdictionClause .JurStart , Citation. JurisdictionClause . JurEnd) 

Call ErrorForm. Activate 
End If 

End If 

End If 
End If 

End Sub 

Private Sub CheckExtraneousCourtAndJurisdiction ( ) 

' — Suggest deleting the court and/or jurisdiction if either is identifed by a reporter clause. 

Dim bcReporterlDingJur As cReporter 
Dim bcReporterlDingCourt As cReporter 
Dim bolExtraneousJurisdiction As Boolean 
Dim bolExtraneousCourt As Boolean 
Dim bolFixCourtAndJurTogether As Boolean 



If Not (Citation. JurisdictionClause Is Nothing) Then 

Set bcReporterlDingJur = ReporterlDingJurisdiction (Citation. Jurisdiction) 

If Not (bcReporterlDingJur Is Nothing) Then bolExtraneousJurisdiction = True 

End If 

If Not (Citation. CourtClause Is Nothing) Then 

Set bcReporterlDingCourt = ReporterlDingCourt (Citation. Court) 

If Not (bcReporterlDingCourt Is Nothing) Then bolExtraneousCourt = True 

End If 



If bolExtraneousJurisdiction And bolExtraneousCourt Then 
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End 



Citation. Jurisdictio: 



on^^au 
ef^^T 



;use.Nextl 



be Is Citation. CourtClause Then bi 



>^|^Courtij 



IrTogether = True 



If bolFixCourtAndJurTogether^^True Then 

' If both the jurisdiction and court are redundant because they are identified by a reporter clause, and the court 
clause immediately follows the jurisdition clause, then suggest deleting the jurisdiction clause and court clause 
together . 

'» Jones v. Smith, 123 111. App. 2d 456 (111. App. Ct . 1980) 
'» Jones v. Smith, 123 Ct. CI. 456 (Fed. Ct. CI. 1980) 



Call ErrorForm.LoadError ( "Dec ExtraneousCourtAndJurisdiction A", Citation. JurisdictionClause .JurStart, Citation. CourtClause. CourtEn 
d. Citation. Court .FullName , bcReporterlDingJur. FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Delete (Citation . JurisdictionClause . JurStart , Citation . CourtClause . CourtEnd) 

Call ErrorForm. Activate 
End If 



Else 



If bolExtraneousJurisdiction Then 



1 — If the jurisdiction is redundant because it is identified by a reporter clause, then suggest deleting the 

jurisdiction clause. 
'» Jones v. Smith, 123 U.S. 456 (Fed. 1980) 
■» Jones v. Smith, 123 111. App. 2d 456 (111. 1980) 
'» Jones v. Smith, 123 Dakota 456 (N.D. 1880) 

Call ErrorForm. LoadError( "Dec ExtraneousCourtAndJurisdiction B", Citation. JurisdictionClause. JurStart , Citation. JurisdictionCla 
use . JurEnd , bcReporterlDingJur . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Delete (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd) 
Call ErrorForm. Activate 

If ErrorForm. Result = Cancel Or ErrorForm. Result = Change Then Exit Sub 
End If 



Elself bolExtraneousCourt Then 



'-- If the court clause is redundant because the court is designated by a reporter clause, then suggest deleting the 
iB _ ' court clause. 

ill '» Jones v. Smith, 123 111. App. 2d 456 (App. Ct . 1980) 

^ •» Jones v. Smith, 123 Ct. CI. 456 (Ct. CI. 1980) 

W Call ErrorForm.LoadError ( "Dec ExtraneousCourtAndJurisdiction A" , Ci tat ion. CourtClause .CourtStart, Citation. CourtClause . CourtEnd 
, Ci tat ion. Court .FullName, bcReporterlDingCourt . FullName) 
\\ If Not ErrorForm. IgnoreError Then 

i s= Call ErrorForm. Suggestion . Delete (Citation . CourtClause . CourtStart , Citation . CourtClause . CourtEnd) 

Call ErrorForm. Activate 
I End If 

r= " End If 

End Sub 

Private Sub CheckJurisdictionAndCourtSpelling ( ) 

©III strCorrectJurAbrv As String 

Dim strCorrectCourtAbrv As String 

&iai bolFixJurisdiction As Boolean 

§im bolFixCourt As Boolean 

Dim bolFixJurAndCourtTogether As Boolean 

s . 

ana. Determine whether the jurisdiction clause should be corrected. 
If Not (Citation. JurisdictionClause Is Nothing) Then 

strCorrectJurAbrv = Citation . JurisdictionClause . Jurisdiction . AbrvName 

If Citation. JurisdictionClause, Text <> strCorrectJurAbrv Then bolFixJurisdiction = True 
End If 



'-- Determine whether the court clause should be corrected. 
If Not (Citation. CourtClause Is Nothing) Then 

StrCorrectCourtAbrv = Citation. CourtClause . Court .AbrvName 

If Citation, CourtClause .Text <> strCorrectCourtAbrv Then bolFixCourt = True 
End If 



' — If either needs to be corrected, then determine whether the jurisdiction clause is adjacent to the court clause and the 

court clause is compatible with the jurisdiction. 
If bolFixJurisdiction Or bolFixCourt Then 

If Not (Citation, CourtClause Is Nothing) And Not (Citation. JurisdictionClause Is Nothing) Then 
If Citation . CourtClause . Court . Parent Is Citation. JurisdictionClause. Jurisdiction _ 
And Citation. JurisdictionClause .NextClause Is Citation. CourtClause Then 

bolFixJurAndCourtTogether = True 
End If 
End If 
End If 



If bolFixJurAndCourtTogether = True Then 

'-- If the court Clause is adjacent to the jurisdiction clause and either or both clauses needs to be corrected, then 

suggest correcting the two clauses simultaneously (as a single unit.) 
'» Jones v. Smith, 123 N.W.2d 456 (Minn. Ct App. 1980) 



Call ErrorForm.LoadError { "Dec JurisdictionAndCourtlDSpelling A", Citation. JurisdictionClause . JurStart , Citation. CourtClause. CourtEn 
d, Citation. CourtClause . Court . FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Change (Citation. JurisdictionClause. JurStart, Citation. CourtClause . CourtEnd, strCorrectJurAbrv & " " & 
StrCorrectCourtAbrv) 

Call ErrorForm. Activate 
End If 



Else 
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Otherwise, suggest separ^^^fcprrect JBP for the jurisdiction and the court^^J^apprl 

:he^^risdiction if appropriate. 



' — Suggest correcting thl 
'» Jones v. Smith, 123 N.W.2d 456 (Minnn. 1980) 



If bolFixJurisdiction = True Then 



Call ErrorForm. LoadError ( "Dec JurisdictionAndCourtlDSpelling B" , Citation. JurisdictionClause. JurStart, Citation. JurisdictionCla 
use . JurEnd, Citation . JurisdictionClause . Jurisdiction . FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion . Change (Citation . JurisdictionClause . JurStart , Citation . JurisdictionClause . JurEnd, strCorrectJurAbr 

v) 

Call ErrorForm. Activate 

If ErrorForm. Result = Cancel Or Err or Form. Result = Change Then Exit Sub 
End If 



End If 



'-- Suggest correcting the court if appropriate. 
•» Jones v. Smith, 123 F.2d 456 (CCA. 2d 1980) 



If bolFixCourt = True Then 



Call ErrorForm. LoadError ( "Dec JurisdictionAndCourtlDSpelling C", Citation .CourtClause.CourtStart, Citation. CourtClause .CourtEnd 
, Citation. CourtClause. Court. FullName) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm . Suggestion . Change (Citation . CourtClause . Cour tStar t , Citation . CourtClause . CourtEnd, strCorrectCour tAbrv) 
Call ErrorForm. Activate 

If ErrorForm. Result = Cancel Or ErrorForm. Result = Change Then Exit Sub 
End If 



End If 



End If 



End Sub 



Private Sub CheckValidYear ( ) 

\*f» If the designated year is not within a valid range for the designated court, then request the user to correct the year. 
Jones v. Smith, 123 N.W.2d 456 (Minn. Ct . App. 1950) 

\l 

If INot (Citation. Court Is Nothing) Then 

%j If Citation. Year > 0 And Not (Citation. Court .YearStart <= Citation. Year And Citation . Year <= Citation. Court . YearEnd) Then 

: 

V 5 Call ErrorForm. LoadError ( "Dec ValidYear A", Citation. DateClause . DateEnd, Citation. DateClause. DateEnd, Citation. DateClause. Year, 

Citation. Court) 

If Not ErrorForm. IgnoreError Then 

|0 Call ErrorForm. Suggestion . Change (Citation. DateClause . DateStart, Citation .DateClause . DateEnd, " ") 

; ? = Call ErrorForm. Activate 

#= ■ End If 

~ End If 

g§! if 

End Stl> 



Private Function CourtClauselDsJurisdiction ( ) As Boolean 
fll Not (Citation. CourtClause Is Nothing) Then 

s . If Citation. CourtClause . Court . Jurisdictionlmplicit = True Then 

If Citation. CourtClause , Court . Parent Is Citation. Jurisdiction Then 

CourtClauselDsJurisdiction = True 
End If 
End If 
End If 



End Function 



Private Function ReporterlDingJurisdiction (Jurisdiction As cJurisdiction) As cReporter 



Dim bcReporterClause As cClauseReporter 



For Each bcReporterClause In Citation. ReporterClauses 

If bcReporterClause . Reporter . ImplicitJurisdiction Is Jurisdiction Then 
Set ReporterlDingJurisdiction = bcReporterClause . Reporter 
Exit Function 
End If 
Next bcReporterClause 

End Function 



Private Function ReporterlDingCourt (Court As cCourt) As cReporter 



Dim bcReporterClause As cClauseReporter 



For Each bcReporterClause In Citation . ReporterClauses 

If bcReporterClause . Reporter . ImplicitCourt Is Court Then 
Set ReporterlDingCourt = bcReporterClause .Reporter 
Exit Function 
End If 
Next bcReporterClause 



End Function 



Private Function CompatibleJurisdictions ( ) As Collection 
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Dim strCourtClauseTextTrim A^^tring 
Dim bcJurisdiction As cJuri^^^tion 
Dim bcMatchingCourt As cCoi^^^H 

Dim colJurisdictions As CollWKon 
Dim i As Integer 



'-- Initialize the data. 

Set colJurisdictions = New Collection 
StrCourtClauseTextTrim = Citation.CourtClause.Text 
Jurisdictions . ScoreReset 

'-- Step through each jurisdiction. 

For Each bcJurisdiction In Jurisdictions 

'-- If there is a court in this jurisdiction with an alias that matches the court clause, then calculate points for the 
* jurisdiction. 

Set bcMatchingCourt = bcJurisdiction. Courts. Item (strCourtClauseTextTrim, True, Citation. DateClause . Year , True) 
If Not (bcMatchingCourt Is Nothing) Then 

'-- Award one point to show that the jurisdiction has a matching court alias. 

bcJurisdiction. Score = bcJurisdiction. Score + 1 

'-- Award two points for every reporter clause that is compatible with the jurisdiction. 

bcJurisdiction. Score = bcJurisdiction . Score + 2 * ReportersCompatibleWithCourt (bcMatchingCourt , Citation. ReporterClauses) 
'-- If there are no reporter clauses, then award one point if the citation's year is within the court's date range. 

(If there are reporter clauses, then do not perform this test because points were awarded for a similar test in 

CompatibilityWithReporters . ) 

If Citation. ReporterClauses .Count = 0 Then If Citation . Year > 0 And bcMatchingCourt . YearStart <= Citation . Year And Citation. Yea 
r <= bcMatchingCourt . YearEnd Then bcJurisdiction. Score = bcJurisdiction. Score + 1 

' Award one point if the court clause exactly matches the correct abbreviation for the matching court (i.e., is not 
an incorrect alias.) 

If bcMatchingCourt . AbrvNameTrim = StrCourtClauseTextTrim Then bcJurisdiction . Score = bcJurisdiction. Score + 1 
' -- Determine whether this jurisdiction's score is the best score so far. 
End If 




Next bcJurisdiction 



1 — Return a collection of the jurisdictions that have a score within one point of the best score. (A permitted deviation of 
' s „„ one points includes a jurisdiction if the court name was wrong or the year was wrong, compared to the best matches, but not 
' s,I| if both were wrong.) 

SeV Compatible Jurisdict ions = Jurisdictions . ScoresBest (2 , 1) 

w 

End Function 

Private Function CompatibleCourts (Optional Jurisdiction As cJurisdiction) As Collection 

'irr The jurisdiction is the declaration is optional. If jurisdiction is supplied, then only search for compatible courts 
' r ~ within that jurisdiction. Otherwise, search for compatible courts within all jurisdictions. 

DoJm bcCourtsToCheck As cCourts 

D&m IngMinimumScore As Long 

Dim bcCourt As cCourt 

Dam bcUniqueCourt As cCourt 

fljrqi colCourts As Collection 

l|fm colUniqueCourts As Collection 

slii bolIsUnique As Boolean 

i.-r- Determine the correct group of courts to search. 
iiT Jurisdiction Is Nothing Then 

^| Set bcCourtsToCheck = Jurisdictions .AllCourts 

. " IngMinimumScore = 2 

SlWe 

Set bcCourtsToCheck = Jurisdiction. Courts 
IngMinimumScore = 1 
End If 



'-- Step through each court and award points. 

bcCourtsToCheck. ScoreReset 

For Each bcCourt In bcCourtsToCheck 

• — Award two points for every reporter clause that is compatible with the jurisdiction. 

bcCourt . Score = bcCourt . Score + 2 * ReportersCompatibleWithCourt (bcCourt , Citation. ReporterClauses, Citation . Year) 
' — Award one point if the date clause's year is within the court's date range. 

If Citation. Year > 0 And bcCourt . YearStart <= Citation. Year And Citation. Year <= bcCourt .YearEnd Then bcCourt . Score = bcCourt . Score 
Next bcCourt 

'-- Create a collection of courts with scores that meet or exceed the minimum score and with scores within one point of the 
' highest score. 

Set colCourts = bcCourtsToCheck. ScoresBest ( IngMinimumScore, 1) 



'-- Filter out courts from the same jurisdiction that have the same abbreviation. 
Set colUniqueCourts = New Collection 
For Each bcCourt In colCourts 
bolIsUnique = True 

For Each bcUniqueCourt In colUniqueCourts 

If bcCourt . Parent Is bcUniqueCourt . Parent Then 

If bcCourt .AbrvName = bcUniqueCourt .AbrvName Then 
bolIsUnique = False 
Exit For 
End If 
End If 
Next bcUniqueCourt 

If bolIsUnique = True Then colUniqueCourts .Add bcCourt 
Next bcCourt 



Set CompatibleCourts = colUniqueCourts 



End Function 
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' — Copyright 2001 by Robert ^^^Jacobson. 

Option Explicit 



Private mcolExpectedGroupCodes As Collection 
Private mbolUseParallel As Boolean 
Private mbolRulesDif fer As Boolean 
Private mbolSubmittedToStateCourt As Boolean 

Private Const InvalidPriority As Long = 1000 

Public Sub CheckParallelReporters ( ) 

Dim bcReporterClause As cClauseReporter 

If Not (Citation. Jurisdiction Is Nothing) Then 

If f Options . ForCourt <> "Federal" And fOptions . ForCourt = Citation .Jurisdiction. FullName Then mbolSubmittedToStateCourt = True 

Call SetExpectedReporterGroups (mcolExpectedGroupCodes, mbolUseParallel, mbolRulesDif fer) 
Call CheckReporterRuleExceptions 

For Each bcReporterClause In Citation. ReporterClauses 
Call CheckUnrecognizedReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckRedundantReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckUnnecessaryReporter (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklncorrectOrder (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

Next bcReporterClause 

.if 3 Call CheckPref erredReporterMissing 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

w 

. s . Call CheckMissingReporter 
=J If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

= Call CheckMissingReporterGroup 
|^_L. If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 

h 

HfjS If 
End Sub 

Private Sub SetExpectedReporterGroups (ByRef ExpectedReporterGroups As Collection, ByRef UseParallel As Boolean, ByRef RulesDiffer As Boolea 
n) d| s 

f*+ Return the correct group of expected reporters (parallel or non-parallel) for this citation, based on whether the document 
is being submitted to a state court within the same jurisdiction as the citation. 



^||Not (Citation. Court Is Nothing) Then 

5 ~" If Citation. Court . ParallelReporters . Count = 0 Then 

r p= Set ExpectedReporterGroups = Citation. Court. NonParallelReporters 

UseParallel = False 

RulesDiffer = False 
Elself Citation. Court. NonParallelReporters. Count = 0 Then 

Set ExpectedReporterGroups = Citation . Court . ParallelReporters 

UseParallel = True 

RulesDiffer = False 
Elself mbolSubmittedToStateCourt Then 

Set ExpectedReporterGroups = Citation. Court . ParallelReporters 

UseParallel = True 

RulesDiffer = True 

Else 

Set ExpectedReporterGroups = Citation. Court .NonParallelReporters 
UseParallel = False 
RulesDiffer - True 
End If 
End If 

End Sub 

Private Sub CheckReporterRuleExceptions ( ) 

If Not (Citation. DateClause Is Nothing) Then 

If Citation. Jurisdiction. FullName = "California" And Citation. DateClause. Year <= 1959 Then 

If Citation. Court, FullName = "Court of Appeal" Then 
Set mcolExpectedGroupCodes = New Collection 
If mbolSubmittedToStateCourt Then 

mcolExpectedGroupCodes .Add 1 

mcolExpectedGroupCodes. Add 2 

mbolUseParallel = True 

Else 

mcolExpectedGroupCodes .Add 2 
mcolExpectedGroupCodes .Add 1 
mbolUseParallel = False 
End If 
End If 
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t^fl^jame - "Apjlfcate Departments of the Superior^^^^;" 
ctl^^^BupCodes = New Collection ^^^m 
tt^^KstateCourt Then 
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If Citation. Court ^^^Hame - "ApPBRate Departments of the Superior^^^B" Then^ 

Set mcolExpecfl 
If mho 1 Submitted 

mc o 1 Exp ectedGroupC odes .Add 1 
mcol Expect edGroupCodes .Add 2 
mbolUseParallel = True 

Else 

mcol Expect edGroupCodes .Add 2 
mcolExpectedGroupCodes . Add 1 
mbolUseParallel = False 
End If 
End If 

End If 
End If 

End Sub 

Private Sub CheckUnrecognizedReporter (CurrentClause As cClauseReporter ) 

' — If a reporter is not recognized as used by this particular jurisdiction or court, then suggest deleting or changing the 
reporter clause. 

Dim bcReporter As cReporter 
Dim strSuggestion As String 
Dim colPref erredReporters As Collection 



If Not {Citation. Court Is Nothing) Then 

If Citation. ReporterClauses .Count > 1 Then 

— If the current clause's reporter is not used by the court and there is at least one other reporter clause, 

then suggest deleting the current clause. 
» Jones v. Smith, 100 F.3d 105, 110, 200 N.W.2d 205, 210 (2d Cir. 2000) 
» Jones v. Smith, 100 Minn. 105, 110, 200 N.W.2d 205, 210 (Ct. App. 1990) 
» Jones v. Smith, 100 N.W.2d 105, 110, 200 111. App. 205, 210 (1990) 
» Jones v. Smith, 100 F.2d 105, 110, 200 111. App. 205, 210 (1990) 



If Not ( CurrentClause. Repor ter . Parent Is Citation. Court. CourtGroup) Then 

CurrentClause . ClauseStart , CurrentClause . ClauseEnd, CurrentClause . Re 



%] Call ErrorForm. LoadError ( "Pll UnrecognizedReporter 1 
porte^r ^FullName, "the " & Citation. Court . FullName) 

>| If Not ErrorForm. IgnoreError Then 

=59 Call SuggestClauseDelete (CurrentClause) 

- ? - Call ErrorForm. Activate 

e^l End If 

til End If 



Else 
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— If the current clause's reporter is not used by the court and it is the only reporter clause, 

then suggest changing it to a valid reporter. 
>> Jones v. Smith, 200 N.W.2d 205, 210 (2d Cir. 2000) 
» Jones v. Smith, 100 Minn. 105, 110 (Ct. App. 1990) 
» Jones v. Smith, 100 U.S. 105, 110 (Minn. 1980) 

If Not (CurrentClause. Reporter. Parent Is Citation. Court. CourtGroup) Then 
Set colPref erredReporters = Pref erredReporters ( ) 



Call ErrorForm. LoadError { "Pll UnrecognizedReporter 2", CurrentClause . ClauseStart , CurrentClause .ClauseEnd, CurrentClause. Re 
porter. FullName, "the " & Citation. Court. FullName, ListOfReporters (colPref erredReporters) ) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colPref erredReporters 

Call SuggestClauseChange (CurrentClause, bcReporter, CurrentClause . PinStart > 0) 
Next bcReporter 
Call ErrorForm. Activate 
End If 

End If 

End If 

End If 

End Sub 

Private Sub CheckRedundant Repor ter (CurrentClause As cClauseReporter) 

'-- If the citation contains another reporter with the same group code as the present reporter, then suggest that one 
be deleted. 

'» Jones v. Smith, 100 N.W. 105, 110, 200 N.W.2d 205, 210 (Minn. 1980) 



Dim bcSubsequentReporterClause As cClauseReporter 



If Citation. ReporterClauses . Count > 1 Then 

For Each bcSubsequentReporterClause In Citation .ReporterClauses 

If bcSubsequentReporterClause. ClauseStart > CurrentClause . ClauseStart Then 

If bcSubsequentReporterClause. Reporter .GroupCode = CurrentClause . Reporter . GroupCode Then 

If Not (bcSubsequentReporterClause . EditorClause Is CurrentClause Or CurrentClause . EditorClause Is bcSubsequentReporterC 

lause) Then 

Call ErrorForm. LoadError ( "Pll RedunantReporter " , CurrentClause .ClauseStart , CurrentClause . ClauseEnd, bcSubsequentRe 
porterClause . Reporter . AbrvName, CurrentClause . Reporter . AbrvName) 
If Not ErrorForm. IgnoreError Then 

Call SuggestClauseDelete (CurrentClause) 



mCheckParallelReporters 



Call Sugg^ 
Call Err< 
If Error: 
End If 



g^^l< 



av^^Mlete {be Subsequent Reporter Clause) 
. Ao^Kate 

'esult = Change Or ErrorForm. Result = Cancel 
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Sub 



End If 
End If 

End If 

Next bcSubsequentReporterClause 
End If 

End Sub 

Private Sub CheckUnnecessaryReporter (Cur rente lause As cClauseReporter) 

' — If this reporter is used by the citation, but isn't necessary to satisfy the required reporters for this court, 

' deleting it. 

'» Jones v. Smith, 100 U.S. 105, 110, 200 S. Ct. 205, 210 (1980) 

'>> Jones v. Smith, 100 Minn. 105, 110, 200 N.W.2d 205, 210 (1980) [not submitted to Minnesota court] 



then suggest 



Dim bcPref erredReporter As cReporter 
Dim strSuggestion As String 



If Not (Citation. Court Is Nothing) Then 

If IsValidReporter (CurrentClause .Reporter) Then 
If Not HasNeededReporter (CurrentClause) Then 

If mbolRulesDif fer And Not mbolSubmittedToStateCourt Then 

Call ErrorForm. LoadErr or ( "Pll UnnecessaryReporter B", CurrentClause . ClauseStart , CurrentClause. ClauseEnd, AddArticle (Ci 
tation. Jurisdiction. FullName) , CurrentClause. Reporter .FullName, Citation . Court . FullName) 
Else 

Call ErrorForm. LoadError ( "Pll UnnecessaryReporter A", CurrentClause . ClauseStart , CurrentClause . ClauseEnd, CurrentClause 
.Reporter .FullName, Citation. Court . FullName) 
End If 

If Not ErrorForm. IgnoreError Then 

Call SuggestClauseDelete (CurrentClause) 
As-, Call ErrorForm. Activate 

kJ End If 

^ End If 
\i End If 
En<f If 

End Sub 

Private Sub ChecklncorrectOrder (CurrentClause As cClauseReporter) 

If the current clause has a reporter that is in an incorrect position and should go earlier in the parallel citation, then 
%'s suggest transposing the clause into its correct position. 
4> Jones v. Smith, 200 N.W.2d 205, 210, 300 Minn. 305, 310 (1980) 

'_>> Jones v. Smith, 100 L. Ed 105, 110, 200 S. Ct. 205, 210, 300 U.S. 305, 310 (1980) 

a 

J?iBi bcReporterClauseAtExpectedPosition As cClauseReporter 

fii 

Citation. ReporterClauses . Count > 1 Then 
Set bcReporterClauseAtExpectedPosition = ClauseAtExpectedStart (CurrentClause . Reporter ) 
^ If Not (bcReporterClauseAtExpectedPosition Is CurrentClause) Then 

^1 Call ErrorForm. LoadError ( "Pll IncorrectOrder " , CurrentClause . ClauseStart , CurrentClause. ClauseEnd, CurrentClause. Reporter .FullN 

ame, 5 IjcReporterClauseAtExpectedPosit ion. Reporter .FullName) 
r si= If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggest ion. Transpose (CurrentClause. ClauseStart, CurrentClause . ClauseEnd, bcReporterClauseAtExpectedPosition. 

ClauseStart) 

Call ErrorForm. Activate 
End If 

End If 
End If 

End Sub 

Private Sub CheckPref erredReporterMissing ( ) 

' — If the citation should not have parallel reporters and the citation isn't using the best reporter, then suggest changing the 

current highest-rated clause to the preferred reporter. 

'» Jones v. Smith, 100 S. Ct . 105, 110 (1980) 

'» Jones v. Smith, 100 L. Ed. 105, 110, 200 S. Ct . 205, 210 (1980) 



Dim colPref erredReporters As Collection 

Dim bcReporter As cReporter 

Dim bcClauseToReplace As cClauseReporter 



If mbolUseParallel = False And Citation. ReporterClauses. Count > 0 Then 

Set colPref erredReporters = Pref erredReporters ( ) 
If colPref erredReporters .Count > 0 Then 

Set bcClauseToReplace = Ci tation. ReporterClauses (1) 

Call ErrorForm. LoadError ( "Pll NotPref erredReporter " , bcClauseToReplace. ClauseStart , bcClauseToReplace . ClauseEnd, ListOf Reporter 
s (colPref erredReporters) , bcClauseToReplace . Reporter . FullName) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colPref erredReporters 

Call SuggestClauseChange (bcClauseToReplace, bcReporter, bcClauseToReplace . PinStart > 0) 
, Next bcReporter 
Call ErrorForm. Activate 



mCheckParallelReporters - 4 

End If . 

End If I 

End If ^ 

End Sub 

Private Sub CheckMissingReporter ( ) 

'-- If there are no reporter clauses, then suggest inserting a valid reporter clause. 
'» Jones v. Smith (Minn. 1970) 

Dim colPref erredReporters As Collection 
Dim bcReporter As cReporter 
Dim strSuggestion As String 



If Citation. ReporterClauses .Count = 0 Then 

Set colPref erredReporters = Pref erredReporters { ) 
If colPref erredReporters . Count > 0 Then 

Call ErrorForm.LoadError ( "Pll MissingReporter " , 0, 0, ListOfReporters (colPref erredReporters) ) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colPref erredReporters 

Call SuggestClauselnsert (bcReporter, False) 

Next bcReporter 

Call ErrorForm. Activate 
End If 

End If 

End If 

End Sub 

Private Sub CheckMissingReporterGroup ( ) 

'J.-. If this citation should use parallel reporters, then check whether all of the necessary reporter groups are satisfied, 
'fe* Jones v. Smith, 100 N.W.2d 105, 100 (Minn. 1970) [for Minnesota court] 

dIw colSuggestedReporters As Collection 
D^ varGroupCode As Variant 
Dim bcReporter As cReporter 
Dlsfi strSuggestion As String 




SELmbolUseParallel = True And Citation. ReporterClauses. Count > 0 Then 

m For Each varGroupCode In mcolExpectedGroupCodes 
;== If ClauseMatchingGroup (varGroupCode) Is Nothing Then 

- Set colSuggestedReporters = ValidReporters (varGroupCode) 

"2 S . If colSuggestedReporters . Count > 0 Then 

ijs If mbolSubmittedToStateCourt Then 

ly Call ErrorForm. LoadError ( "Pll MissingReporterGroup 1", 0, 0, AddArticle (Citation. Jurisdiction . FullName) , ListOfRepo 

rters^fcolSuggestedReporters) ) 
J** Else 

hzk Call ErrorForm. LoadError ( "Pll MissingReporterGroup 2", 0, 0, ListOfReporters (colSuggestedReporters) ) 

^ End If 

% C J If Not ErrorForm. IgnoreError Then 

For Each bcReporter In ValidReporters (varGroupCode) 
* C3 Call SuggestClauselnsert (bcReporter , False) 

Next bcReporter 

Call ErrorForm. Activate 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
End If 

End If 

End If 
Next varGroupCode 

End If 

End Sub 

Private Function ClauseAtExpectedStart (Reporter As cReporter) As cClauseReporter 

'-- Returns the clause which occupies the position at which the reporter should be located. If the reporter already exists 
in the citation, returns its value in the current citation unless it should belong earlier in the parallel citations, 
i.e., this will not suggest a change if it should be moved later in the citation. 

Dim bcReporterClause As cClauseReporter 
Dim IngReporterPriority As Long 



If Citation. ReporterClauses. Count > 0 Then 

IngReporterPriority = Priority (Reporter) 

'-- Iterate through each reporter clause. 

For Each bcReporterClause In Citation. ReporterClauses 

'-- If the reporter clause's reporter is the supplier reporter, then stop and return this clause as being in the 

correct position. 
If Reporter Is bcReporterClause . Reporter Then 

Set ClauseAtExpectedStart = bcReporterClause 
Exit Function 

Else 

' — If the reporter has a higher priority than the reporter clause it encounters, then return this reporter clause as 
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where the reporter sh^^d be ^^Hted. 

If lngReporterPriori^^^KTioI^^t bcReporterClause. Reporter) Then 
Set ClauseAtExp(=^^^B:art = bcReporterClause 
Exit Function 
End If 
End If 
Next bcReporterClause 

End If 

End Function 

Private Function EndOf LastReporterClause ( ) As Long 
Dim bcLastReporterClause As cClauseReporter 

Set bcLastReporterClause = Citation . ReporterClauses {Citation. ReporterClauses .Count) 
If Act iveDoc .Words (bcLastReporterClause . ClauseEnd + 1) = "," Then 
EndOf LastReporterClause = bcLastReporterClause . ClauseEnd + 2 

Else 

EndOf LastReporterClause = bcLastReporterClause . ClauseEnd + 1 
End If 

End Function 

Private Function Priority {Reporter As cReporter) As Long 

'-- Returns a value representing the order in which the reporter's group code falls within the expected groupcodes collection. 
A lower number means that the reporter has greater "priority." 

Dim i As Long 

Dim IngReporterGroupCode As Long 



' -- If the reporter is valid for the citation's court, then assign its group code to the long. Otherwise, exit 

the function and return zero. 
If I sValidReporter (Reporter) Then 

IngReporterGroupCode = Reporter .GroupCode 

%_| Priority = InvalidPriority 
.:■=; Exit Function 
E&i If 

Si 

'.-f Step through each group code in the expected group codes to determine where the reporter's group code falls. 
Atf i = 1 To mcolExpectedGroupCodes. Count 

is% If mcolExpectedGroupCodes (i) = IngReporterGroupCode Then 
V 5 Priority = i 

L a i. Exit Function 
V" End If 
r|e|t i 

4^=- A valid group code was not located. 
Priority = InvalidPriority 

End sfoiiction 

Privaljb Function isValidReporter {Reporter As cReporter) As Boolean 

ksh Returns "true" if the reporter is used by the citation's court, 
it* Not (Citation. Court Is Nothing) Then 

f~\ If Reporter . Parent . Parent Is Citation. Court . Parent Then IsValidReporter = True 
pfd If 

End Function 



• ****************************************************************************** 

' Ensure that each clause is sorted, from lowest to highest, 

1 by reporter group number. If not in the appropriate position, suggest moving 

1 the clause to the appropriate position. 

i ****************************************************************************** 



Private Sub SortClausesByReporterGroup ( ) 

Dim i As Long 
Dim j As Long 

Dim objLaterReporterClause As cClauseReporter 
Dim objEarlierReporterClause As cClauseReporter 

For i = 1 To Citation. Clauses . ReporterClauses .Count 

Set objEarlierReporterClause = Citation .Clauses .ReporterClauses ( i) 
If Not (objEarlierReporterClause. Reporter Is Nothing) Then 

For j = i + 1 To Citation. Clauses .ReporterClauses. Count 

Set objLaterReporterClause = Citation. Clauses. ReporterClauses (j ) 
If Not (objLaterReporterClause, Reporter Is Nothing) Then 

If objLaterReporterClause. Reporter .GroupCode < objEarlierReporterClause . Reporter .GroupCode Then 

Call mDi splay Err or . Transpose { "T. 1 Change Clause Position", objLaterReporterClause. ClauseStart, objLaterReporterCla 
use .ClauseEnd, objEarlierReporterClause . ClauseStart, objLaterReporterClause .ReporterFullName, objEarlierReporterClause .ReporterFullName) 
If gbolStartOver = True Then Exit Sub 
End If 



End If 
Next j 
End If 



Next i 
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End Sub 

Private Sub CheckDisfavorei 



60 



Dim bcReporterClause As cClauseReporter 
Dim strReporterAbrvName As String 
Dim strSuggested As String 

For Each bcReporterClause In Citation. Clauses . ReporterClauses 
strReporterAbrvName = bcReporterClause . Report erAbrvName 

If Citation. Year >= 1845 
And (strReporterAbrvName = "Monag." _ 
Or strReporterAbrvName = "Sadler" _ 
Or strReporterAbrvName = "Walk. " _ 
Or strReporterAbrvName = "Pennyp.") Then 
If CitationUsesPinpoints Then 

strSuggested = " Pa. , " 

Else 

strSuggested = " Pa. " 

End If 

If Citation. Words (bcReporterClause. ClauseEnd) = " , " Then strSuggested = strSuggested & "," 
Suggestion. FormattedText = Citation. FormattedText 

Call Suggestion. ReplaceWords (bcReporterClause. ClauseStart , bcReporterClause . ClauseEnd, strSuggested) 

Call mDisplayError . Change ( "T . 1 Use Preferred Reporter, Single", bcReporterClause .ClauseStart , bcReporterClause . ClauseEnd, "Pa. 
, bcReporterClause . ReporterAbrvName ) 

If gbolStartOver = True Then Exit Sub 
End If 

If strReporterAbrvName = "Tex. Sup. Ct . J." Then 
If CitationUsesPinpoints Then 

strSuggested = " S.W.2d , " 

Else 

strSuggested = " S.W.2d " 

End If 

If Citation. Words (bcReporterClause. ClauseEnd) = Then strSuggested = strSuggested & "," 
Suggestion. FormattedText = Citation. FormattedText 

Call Suggestion .ReplaceWords (bcReporterClause. ClauseStart , bcReporterClause . ClauseEnd, strSuggested) 
J _ a Call mDisplayError.Change("T.l Use Preferred Reporter, Single", bcReporterClause. Clauses tart, bcReporterClause . ClauseEnd, "S.W 

2d" , ^IssReporterClause . ReporterAbrvName ) 

, t =i If gbolStartOver = True Then Exit Sub 

%U End If 

\l 

Next bcReporterClause 
\ 1 
End zSute 

y 1 

Private Sub SuggestClauseDelete (ReporterClause As cClauseReporter) 

(f5|l ErrorForm. Suggestion . Delete (ReporterClause . ClauseStart , ReporterClause . ClauseEnd) 
Call FixCourtAndJurisdiction (ReporterToDelete : =ReporterClause . Reporter) 
dall ErrorForm. DisplaySuggest ion 

End SFub 

Privjffe Sub SuggestClauseChange (ReporterClause As cClauseReporter, NewReporter As cReporter, includePinCite As Boolean) 
9im strSuggestion As String 

Li 

StrSuggestion = ■ " & NewReporter . AbrvName & " " 

|f| IncludePinCite Then strSuggestion = strSuggestion & " 

£a[ll ErrorForm. Suggestion. Change (ReporterClause . ClauseStart , ReporterClause. ClauseEnd, strSuggestion) 
ga^ll FixCourtAndJurisdiction (ReporterToDelete : =ReporterClause. Reporter , ReporterToAdd: =NewReporter) 
Cal 1 ErrorForm . DisplaySugges tion 

End Sub 

Private Sub SuggestClauselnsert (Reporter As cReporter, IncludePinCite As Boolean) 

Dim strSuggestion As String 

Dim bcLastReporterClause As cClauseReporter 

Dim InglnsertionPos As Long 



strSuggestion = " " & Reporter .AbrvName & " ," 

If IncludePinCite Then strSuggestion = strSuggestion & " , " 

If Citation. ReporterClauses. Count > 0 Then 

Set bcLastReporterClause = Citation. ReporterClauses (Citation. ReporterClauses. Count) 

InglnsertionPos = bcLastReporterClause. ClauseEnd + 1 
Elself Not (Citation. CaseNameClause Is Nothing) Then 

InglnsertionPos = Citation. CaseNameClause. ClauseEnd + 1 

Else 

InglnsertionPos = Citation. AllClauses (1) . ClauseEnd 
End If 

If ActiveDoc .Words (InglnsertionPos) = "," Then 
InglnsertionPos - InglnsertionPos + 1 

Else 

strSuggestion = " , " & strSuggestion 
End If 

Call ErrorForm. Suggestion . Insert (InglnsertionPos, strSuggestion) 
Call FixCourtAndJurisdiction ( ReporterToAdd : =Reporter) 
Call ErrorForm. DisplaySuggestion 

End Sub 

Private Sub FixCourtAndJurisdiction (Optional ReporterToDelete As cReporter, Optional ReporterToAdd As cReporter) 



If Citation. JurisdictionClause Is Nothing Then 
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'-- Add a jurisdiction c^m^e if ne^Hry. ^^^^ 
If NeedsJurisdictionCla^^^woorterTo^Kete, ReporterToAdd) Then ^^^R 

Call ErrorForm . Sugg^^^R . Insert {AppropriateJurisdictionPosition (Cita^^^^, Citation . Jurisdiction. AbrvName) 
End If 

Else 

'-- Delete the jurisdiction clause if necessary. 

If Not NeedsJurisdictionClause (ReporterToDelete, ReporterToAdd) Then 

Call Err orForm. Suggestion. Delete {Citation . JurisdictionClause . JurStart , Citation. JurisdictionClause. JurEnd) 
End If 
End If 

If Citation. CourtClause Is Nothing Then 
1 — Add a court clause if necessary. 

If NeedsCourtClause (ReporterToDelete, ReporterToAdd) Then 

Call ErrorForm. Suggestion. Insert (AppropriateCourtPosition (Citation) , Citation. Court .AbrvName) 
End If 

Else 

1 — Delete the court clause if necessary. 

If Not NeedsCourtClause (ReporterToDelete, ReporterToAdd) Then 

Call ErrorForm. Suggestion . Delete (Citation . CourtClause . CourtStart , Citation . CourtClause . CourtEnd) 
End If 
End If 

End Sub 

Private Function NeedsJurisdictionClause (Optional ReporterToDelete As cReporter, Optional ReporterToAdd As cReporter) As Bool 
Dim bcReporterClause As cClauseReporter 



If Not Citation. Jurisdiction Is Nothing Then 

'-- Start by assuming that a jurisdiction clause is needed 
NeedsJurisdictionClause = True 

' — If the jurisdiction is federal, then a jurisdiction clause is not needed. 

If Citation. Jurisdiction. FullName = "Federal" Then 
NeedsJurisdictionClause = False 
i,. Exit Function 

HI End If 

%h£ 1 — If a reporter being added identifies the jurisdiction, then a jurisdiction clause is not needed. 
VJ If Not (ReporterToAdd Is Nothing) Then 

, If ReporterToAdd. Implicit Jurisdict ion Is Citation. Jurisdiction Then 

\l NeedsJurisdictionClause = False 

:== Exit Function 

%F= End If 
End If 

ftl ' -- If the jurisdiction is implicit from an existing reporter clause, then a jurisdiction clause is not needed. 
:Z" Z For Each bcReporterClause In Citation. ReporterClauses 

4p= '-- If a reporter is being deleted, then don't check whether this reporter identifies the jurisdiction. 

If Not (bcReporterClause. Reporter Is ReporterToDelete) Then 
~ If bcReporterClause . Reporter . Implicit Jurisdict ion Is Citation . Jurisdiction Then 

f*\ NeedsJurisdictionClause = False 

2*! Exit Function 

fU End If 

f~l End If 

M Next bcReporterClause 

Li 

I§id If 
End function 

Private Function NeedsCourtClause (Optional ReporterToDelete As cReporter, Optional ReporterToAdd As cReporter) As Boolean 
Dim bcReporterClause As cClauseReporter 



If Not Citation. Court Is Nothing Then 

' Start by assuming that a court clause is needed 
NeedsCourtClause = True 

' -- If the court is one that doesn't need an abbreviation (i.e., a supreme court), then a court clause is not needed. 
If Citation. Court. AbrvName = " " Then 

NeedsCourtClause = False 

Exit Function 
End If 

' — If a reporter being added identifies the court, then a court clause is not needed. 
If Not (ReporterToAdd Is Nothing) Then 

If ReporterToAdd. ImplicitCourt Is Citation. Court Then 
NeedsCourtClause = False 
Exit Function 
End If 
End If 

' — If the court is implicit from an existing reporter clause, then a court clause is not needed. 
For Each bcReporterClause In Citation. ReporterClauses 

' — If a reporter is being deleted, then don't check whether this reporter identifies the court. 
If Not (bcReporterClause. Reporter Is ReporterToDelete) Then 

If bcReporterClause . Reporter . ImplicitCourt Is Citation. Court Then 
NeedsCourtClause = False 
Exit Function 
End If 
End If 
Next bcReporterClause 



End If 
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hi- 



End Function 

Private Function HasNeededReporter (R< 



rClause As cClauseReporter) As Boolean ^^Hf 



Dim varGroupCode As Variant 

Dim IngReporterClauseGroup As Long 

Dim IngPriority As Long 

Dim bcReporterClause As cClauseReporter 



If mbolUseParallel Then 



— If this citation should use parallel citations, then determine whether this reporter's group code is needed to satisfy 
one of the the required group codes. 

If IsValidReporter (ReporterClause. Reporter) Then IngReporterClauseGroup = ReporterClause . Reporter . GroupCode 



If ReporterClause. Reporter . Parent. Parent Is Citation. Court . Parent Then 

IngReporterClauseGroup = ReporterClause. Reporter .GroupCode 
End If 

For Each varGroupCode In mcolExpectedGroupCodes 
If varGroupCode = IngReporterClauseGroup Then 
HasNeededReporter = True 
Exit Function 
End If 
Next varGroupCode 



Else 



' — If this citation shouldn't use parallel citations, then determine whether there's another reporter clause that 
has a higher priority over the current clause. 



IngPriority = Priority (ReporterClause . Reporter) 
If IngPriority < InvalidPriority Then 



HasNeededReporter = True 

For Each bcReporterClause In Citation. ReporterClauses 
If Not (ReporterClause Is bcReporterClause) Then 
|_i If Priority (bcReporterClause . Reporter) < IngPriority Then 

HasNeededReporter = False 
Exit Function 
%J„ End If 

End If 

Sj Next bcReporterClause 
Ul End If 
EiM If 

£0 

End Function 

#= 

Private Function Pref erredReporters ( ) As Collection 

E 

jp-f Return a collection of reporters in the reporter group with valid group codes that are higher in priority than those 
already in the collection 

Iiiip col Pref erredReporters As Collection 
Mi IngBestPriority As Long 
im IngPriority As Long 
lih bcReporterClause As cClauseReporter 
bcReporter As cReporter 

• — Determine the highest priority within the current reporter clauses. 
IngBestPriority = InvalidPriority + 1 
For Each bcReporterClause In Citation. ReporterClauses 
IngPriority = Priority (bcReporterClause . Reporter) 
If IngPriority < IngBestPriority Then 

IngBestPriority = IngPriority 
End If 
Next bcReporterClause 



' -- Check each valid reporter. Add the reporter if it has a higher priority than the current highest priority. 
Set colPreferredReporters = New Collection 
For Each bcReporter In ValidReporters ( ) 

If Priority (bcReporter) < IngBestPriority Then colPreferredReporters .Add bcReporter 
Next bcReporter 

Set Pref erredReporters = colPreferredReporters 



End Function 



Private Function BestClauseO As cClauseReporter 

' -- Returns the reporter clause with the highest priority. 

Dim bcReporterClause As cClauseReporter 
Dim IngBestPriority As Long 
Dim IngPriority As Long 



For Each bcReporterClause In Citation. ReporterClauses 
If Not (bcReporterClause Is BestClause) Then 

IngPriority = Priority (bcReporterClause. Reporter) 
If IngPriority < IngBestPriority Or IngBestPriority = 0 Then 
IngBestPriority = IngPriority 
Set BestClause = bcReporterClause 
End If 
End If 
Next bcReporterClause 
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End Function 

Private Function ClauseMatchingGr^^^PoupCode As Variant) As cClauseReporter 

' — Returns an existing reporter clause in the citation that matches the supplied group code. 
Dim bcReporterClause As cClauseReporter 

For Each bcReporterClause In Citation . ReporterClauses 
If IsValidReporter (bcReporterClause . Reporter) Then 

If bcReporterClause. Reporter .GroupCode = GroupCode Then 
Set ClauseMatchingGroup = bcReporterClause 
Exit Function 
End If 
End If 
Next bcReporterClause 

End Function 

Private Function ValidReporters (Optional GroupCode As Variant) As Collection 

' — Returns a collection of reporters that are not editor reporters and that match the date for the citation. If a group c 
' is supplied, then only match reporters that have the same group code. 

Dim bcReporter As cReporter 

Dim IngYear As Long 

Dim colValidReporters As Collection 

Set colValidReporters = New Collection 

If Not (Citation. DateClause Is Nothing) Then IngYear = Citation. DateClause. Year 

For Each bcReporter In Citation . Court . Reporters 
If Not (bcReporter . isEditorReporter) Then 

If (bcReporter . YearStart <= IngYear And IngYear <= bcReporter . Year End) Or IngYear = 0 Then 
If I sMissing (GroupCode) Then 

colValidReporters .Add bcReporter 
^-3, Elself bcReporter . GroupCode - GroupCode Then 

colValidReporters .Add bcReporter 
End If 



End If 



\l End If 
Next bcReporter 

S:$e ValidReporters = colValidReporters 
End ifuiiction 

Priva^jfg Function ListOfReporters (Reporters As Collection) As String 

Based on the supplied collection of reporters, create a string containing, e.g., " [ReporterA] , [ReporterB] or 
' B [ReporterC] . " 

bcReporter As cReporter 
bIhi i As Long 

i y 

for i = 1 To Reporters . Count 
ffcci If i = 1 Then 

3 C - ListOfReporters = Reporters (i) .AbrvName 

sfcsJ Elself i < Reporters. Count Then 

ListOfReporters = ListOfReporters & ", " & Reporters (i) .AbrvName 

- K " Else 

If Reporters . Count < 3 Then 

ListOfReporters = ListOfReporters & " or " & Reporters ( i) .AbrvName 

Else 

ListOfReporters = ListOfReporters & ", or ■ & Reporters ( i) .AbrvName 
End If 
End If 
Next i 



End Function 
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* — Copyright 2001 by Robert L. 
Option Explicit 
Public Sub CheckReporter ( ) 

Dim bcReporterClause As cClauseReporter 

For Each bcReporterClause In Citation. ReporterClauses 
Call ChecklncorrectAbrv (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Cal 1 CheckMissingVolumeNumber ( bcReporterClause ) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklncorrectVolumeNumber (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Re suit = Cancel Then Exit Sub 
Call CheckMissingFirstPage (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckPunctuationAf terFirstPage (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call CheckMissingPinpoint (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Call ChecklnvalidYear (bcReporterClause) 

If ErrorForm. Result = Change Or ErrorForm. Result = Cancel Then Exit Sub 
Next bcReporterClause 
End Sub 

Private Sub ChecklncorrectAbrv (CurrentClause As cClauseReporter) 

'-- If the reporter is not punctuated or spelled correctly, then suggest correcting it. 

'>>: Jones v. Smith, 200 U.SS. 500, 505 (1980) 

Jones v. Smith, 200 FSupp 500, 505 (D. Md. 1980) 

Jones v. Smith, 100 N.2d 105, 110 (1980) 

Dim colSuggestions As Collection 
D?y| colUniqueReporters As Collection 
Dili bcReporter As cReporter 

y] 

ff" CurrentClause. Reporter .AbrvName <> CurrentClause . AbrvText Then 

'-- Generate a collection containing all of the reporters with similar names, 
sita Set colSuggestions = New Collection 

5 if Not (Citation. Court Is Nothing} Then Set colSuggestions = Citation .Court . Reporters . Items (CurrentClause .AbrvText , True, True) 
?** 

hs~ if colSuggestions. Count = 0 Then 

ffj If Not (Citation, Jurisdiction Is Nothing) Then Set colSuggestions = Citation. Jurisdiction. AllReporters . Items (CurrentClause .Abrv 

Text!»Z?rue, True) 
iQ End If 

= If colSuggestions. Count = 0 Then 

Set colSuggestions = Jurisdictions .AllReporters . Items (CurrentClause .AbrvText , True, True) 
End If 

'-- colSuggestions may contain reporters with duplicate abbreviations. Filter out the duplicate abbreviations. 
Set colUniqueReporters = New Collection 
For Each bcReporter In colSuggestions 

If Not ExistslnCollection (bcReporter, colUniqueReporters) Then colUniqueReporters .Add bcReporter 
Next bcReporter 

■ -- Display the error 

If colUniqueReporters .Count = 1 Then 

Call ErrorForm. LoadErr or ( "Rep IncorrectAbrv 1", CurrentClause .AbrvStart , CurrentClause. AbrvEnd, CurrentClause .Reporter . FullName 

) 

If Not ErrorForm. ignoreError Then 

Call ErrorForm. Suggestion. Change (CurrentClause. AbrvStart, CurrentClause .AbrvEnd, CurrentClause . Reporter .AbrvName) 

Call ErrorForm. Activate 
End If 

Else 

Call ErrorForm. LoadError ( "Rep IncorrectAbrv 2", CurrentClause .AbrvStart , CurrentClause .AbrvEnd) 
If Not ErrorForm. IgnoreError Then 

For Each bcReporter In colUniqueReporters 

Call ErrorForm . Suggestion . Change (CurrentClause . AbrvStart , CurrentClause . AbrvEnd, bcReporter . AbrvName) 
Call ErrorForm. DisplaySuggestion 
Next bcReporter 
Call ErrorForm. Activate 
End If 

End If 

End If 

End Sub 

Private Sub CheckMissingVolumeNumber (CurrentClause As cClauseReporter) 

• — If the reporter citation is missing a volume number, then suggest inserting a placeholder or the correct volume number. 
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Dim lngExpectedVolumeNumber As 



rwBTtion = 0 Then 



If CurrentClause.VolumeNumber, 

' — If this clause has an associated editor clause with a valid volume number, or an associated editor clause that 

doesn't need a volume number, then calculate the correct volume number for this clause. 
If Not (CurrentClause, EditorClause Is Nothing) Then 
With CurrentClause. EditorClause 

If .VolumeNumber >= . Reporter .Volumes tart And . VolumeNumber < = . Reporter .VolumeEnd Then 

lngExpectedVolumeNumber = (.VolumeNumber - .Reporter . VolumeStart) + .Reporter .MainReporterVolumeFirst 
Elself .VolumeNumber = 0 Then 

If .Reporter .VolumeStart = . Reporter .VolumeEnd Then lngExpectedVolumeNumber = . Reporter .MainReporterVolumeFirst 
End If 
End With 
End If 

If lngExpectedVolumeNumber > 0 Then 

'» Jones v. Smith, U.S. (3 Wheat.) 500, 505 (1820) 
'» Jones v. Smith, Ky. (Sneed) 500, 505 (1803) 



UName) 



UName) 



Call ErrorForm.LoadError { "Rep MissingVolumeNumber A", CurrentClause. AbrvS tart, CurrentClause. AbrvEnd, CurrentClause .Reporter .Fu 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (CurrentClause . AbrvStart, lngExpectedVolumeNumber) 
Call ErrorForm. Activate 
End If 

Else 

•» Jones v. Smith, U.S. 500, 505 (1990) 

Call ErrorForm.LoadError ( "Rep MissingVolumeNumber B" , CurrentClause .AbrvStart, CurrentClause .AbrvEnd, CurrentClause . Reporter .Fu 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (CurrentClause. AbrvStart, " ") 

Call ErrorForm. Activate 
End If 

•t-. End If 

u 

En** if 

End Sb& 

Privatf^ Sub Checklnc or rect VolumeNumber (CurrentClause As cClauseReporter ) 

If the volume number is outside of the correct range of volume numbers for the reporter, then suggest changing or 
'kss replacing the volume number. 

Jones v. Smith, 70 Del. 200, 205 (19 60) 

I£ = CurrentClause. VolumeNumber > 0 Then 

„ If Not (CurrentClause. Reporter .VolumeStart <= CurrentClause.VolumeNumber _ 
And CurrentClause.VolumeNumber <= CurrentClause .Reporter .VolumeEnd) Then 

Call ErrorForm.LoadError ( "Rep IncorrectVolumeNumber " , CurrentClause. VolumeNumber Location, CurrentClause . VolumeNumberLocat ion, C 
urreiHFlause . Reporter . FullName) 

s*»% If Not ErrorForm. IgnoreError Then 

W Call ErrorForm. Suggestion .Change (CurrentClause. VolumeNumberLocat ion, CurrentClause .VolumeNumberLocat ion, " ") 

Usk Call ErrorForm. Activate 

End If 

s"" ; 

s . End If 
End If 
End Sub 

Private Sub CheckMissingFirstPage (CurrentClause As cClauseReporter) 

' — If the first page number is missing, then suggest inserting a placeholder. 

'» Jones v. Smith, 100 N.W.2d (Minn. 1990) 

■» Jones v. Smith, 100 N.W.2d, 205 (Minn. 1990) 

If CurrentClause. FirstPageLocation = 0 Then 

Call ErrorForm.LoadError ( "Rep MissingFirstPage" , 0, 0, CurrentClause. Reporter . FullName) 
If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Insert (CurrentClause. AbrvEnd + 1, " ") 

Call ErrorForm. Activate 
End' If 

End If 

End Sub 

Private Sub CheckPunctuationAfter First Page (CurrentClause As cClauseReporter) 

' — If the punctuation between the first page number and the pinpoint page number is not a single comma, then suggest inserting 
' a comma or changing the existing punctuation to a comma. 

Dim str Punctuation As String 



If CurrentClause, FirstPageLocation > 0 _ 
And CurrentClause . PinStart > 0 Then 

If CurrentClause. PinStart = CurrentClause. FirstPageLocation +1 Then 

■ — Suggest inserting a comma. 

'» Jones v. Smith, 123 N.W.2d 456 480 (Minn. 1980) 
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d^^^k["Rep PurSBKtionAf terFirstPage A", CurrentC!^^^H'irstpl|^EOi 
g^^Pror Then ^^^V 
. sll^stion. Insert (CurrentClause . PinStart , ",") 



Call Error Form . Load^^^[ " Rep PuriWRtionAf terFirstPage A" , CurrentC^^^^pirstPa^^Bocation, CurrentClause . PinStart ) 
If Not ErrorForm. IgJ 

Call ErrorForm. 

Call ErrorForm. Activate 
End If 



Else 

strPunctuation = ActiveDoc .Words (CurrentClause . FirstPageLocat ion + 1, CurrentClause . PinStart - 1) 
If strPunctuation <> "," Then 



' — Suggest changing the incorrect punctuation to a comma. 
'» Jones v. Smith, 123 N.W.2d 456, , 480 (Minn. 1980) 
'» Jones v. Smith, 123 N.W.2d 456) 480 (Minn. 1980) 



Call ErrorForm. LoadError ( "Rep PunctuationAf ter First Page B", CurrentClause .FirstPageLocation + 1, CurrentClause . PinStart - 1 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (CurrentClause. FirstPageLocation + 1, CurrentClause . PinStart - 1, ",") 

Call ErrorForm. Activate 
End If 



End If 
End If 
End If 



End Sub 



Private Sub CheckMissingPinpoint (CurrentClause As cClauseReporter) 



' — If the pinpoint page number is missing, then suggest inserting a placeholder for the pinpoint page number. 
'» Jones v. Smith, 123 N.W.2d 456 (Minn. 1980) 



If CurrentClause. PinStart = 0 And CurrentClause .FirstPageLocation > 0 Then 

Call ErrorForm. LoadError ( "Dec MissingPinpoint ", 0, 0, CurrentClause . Reporter . FullName) 

If Not ErrorForm. IgnoreError Then 

If ActiveDoc .Words (CurrentClause . FirstPageLocation + 1) = Then 

^ Call ErrorForm. Suggestion. Insert (CurrentClause. FirstPageLocation + 2, " , " ) 

Cj Else 

;. KS> Call ErrorForm. Suggestion. Insert (CurrentClause. FirstPageLocation + 1, ,") 

%y End If 

V s Call ErrorForm. Activate 
~f End If 

End If 

End Sub 

* Priva^fl Sub Check InvalidYear (CurrentClause As cClauseReporter) 

*4Cr If the associated reporter's year range does not correspond to the year in the date clause, then suggest that the user 
* ' correct the discrepancy. 

^» Jones v. Smith, 100 Minn. 105, 110, 200 N.W.2d 205, 210 (1990) 

ft I Citation. Year > 0 And Not (Citation. Court Is Nothing) Then 

ksi ' — Do not check the date if the reporter is not used by this court. 
§^ If CurrentClause. Reporter. Parent . Parent Is Citation. Court . Parent Then 

i*\ If Citation. Year < CurrentClause . Reporter .YearStart _ 

Or Citation. Year > CurrentClause . Reporter . YearEnd Then 



' Only flag an error if the year is within court's year range. (Otherwise, the error will be handled elsewhere.) 
If Citation. Court . YearStart <= Citation . Year And Citation. Year <= Citation. Court .YearEnd Then 



Call ErrorForm. LoadError ( "Rep InvalidYear 1", Citation. DateClause . DateStart , Citation. DateClause .DateEnd, CurrentClause 

. Reporter . AbrvName ) 

If Not ErrorForm. IgnoreError Then 

Call ErrorForm. Suggestion. Change (Citation. DateClause .DateStart, Citation. DateClause. DateEnd, M " ) 

Call ErrorForm. Activate 
End If 



End If 
End If 
End If 
End If 



End Sub 
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■ — Copyright 2001 by Robert L. 
Option Explicit 



Public Const bcDBLQUOTE As String = " 
Public Const bcHIGHLIGHTCOLOR = vbRed 

Public Enum bcButtonPress 

None 

Cancel 

Change 

Ignore 

IgnoreRule 
End Enum 

Public Citation As cCitation 
Public ErrorForm As cErrorForm 
Public Suggestion As cDocument 
Public AbrvsTablelO As cAbbreviations 
Public AbrvsTable6 As cAbbreviations 
Public AbrvsAll As cAbbreviations 
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' — Copyright 2001 by Robert L. JacoJ 

Option Explicit ™ 

Public Function ClausesAreAdjacent (ByRef FirstClause As IClause, ByRef SecondClause As IClause) As Boolean 

If FirstClause Is Nothing Or SecondClause Is Nothing Then Exit Function 

If Act iveDoc. Words. NextFullWord ( Firs tClause.ClauseEnd) >= SecondClause . ClauseStart Then 

ClausesAreAdjacent = True 
End If 

End Function 

Public Function AppropriateJurisdictionPosition (ByRef Citation As cCitation) As Long 

* — Returns the word number of where the jurisdiction should be in the citation. 

AppropriateJurisdictionPosition = AppropriateDecisionClausePosition (Citation) 
If ActiveDoc. Words (AppropriateJurisdictionPosition) = "(" Then 

AppropriateJurisdictionPosition = AppropriateJurisdictionPosition + 1 
End If 

End Function 

Public Function AppropriateCourtPosition (ByRef Citation As cCitation) As Long 

•-- Returns the word number of where the court should be in the citation. 

If Citation. JurisdictionClause Is Nothing Then 

AppropriateCourtPosition = AppropriateJurisdictionPosition (Citation) 

Else 

AppropriateCourtPosition = Citation. JurisdictionClause .JurEnd + 1 
End If 

End Function 

Public Function AppropriateDatePosition (ByRef Citation As cCitation) As Long 

limitation. JurisdictionClause Is Nothing _ 
Ariel Citation. CourtClause Is Nothing Then 

Si AppropriateDatePosition = AppropriateJurisdictionPosition(Citation) 

Elself Not (Citation. CourtClause Is Nothing) Then 

If Not (Citation. DateClause Is Nothing) Then 

If ActiveDoc. Words. NextFullWord (Citation. CourtClause. Courts tart) = Citation. DateClause. DateStart Then 
±^ AppropriateDatePosition = Citation. DateClause. DateStart 

as! Else 

jf- AppropriateDatePosition = Ci tat ion. CourtClause. CourtEnd + 1 

End If 

= Else 

AppropriateDatePosition = Citation. CourtClause .CourtEnd + 1 
End If 

Eiself Not (Citation. JurisdictionClause Is Nothing) Then 

f ?! s 

If Not (Citation. DateClause Is Nothing) Then 
f^- If ActiveDoc .Words. NextFullWord (Citation. JurisdictionClause. JurEnd) = Citation. DateClause . DateStart Then 

jjpt AppropriateDatePosition = Citation. DateClause. DateStart 

Else 

| b l. AppropriateDatePosition = Citation. JurisdictionClause. JurEnd + 1 

r " End If 

Else 

AppropriateDatePosition = Citation. JurisdictionClause .JurEnd + 1 
End If 

End If 

End Function 

Public Function AppropriateDecisionClausePosition (ByRef Citation As cCitation) As Long 
'-- Returns the word number of where the decision clause should begin in the citation. 
Dim bcClause As IClause 



Set bcClause = LastClauseOfType (Citation, "cClauseReporter " ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause .ClauseEnd + 1 

Else 

Set bcClause = LastClauseOfType (Citation, "cClauseJurisdiction" ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause. ClauseStart 

Else 

Set bcClause = LastClauseOfType (Citation, "cClauseCourt " ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause . ClauseStart 

Else 

Set bcClause = LastClauseOfType (Citation, "cClauseDate" ) 
If Not (bcClause Is Nothing) Then 

AppropriateDecisionClausePosition = bcClause .ClauseStart 

Else 

AppropriateDecisionClausePosition = Citation. CitationEnd 
End If 
End If 
End If 
End If 
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If Ac tiveDoc. Words (AppropriateBM^sionCl^^^osition) = _ 
And Not (AppropriateDecisionC^^^fcositiowl^ Citation, CitationEnd) Then 

AppropriateDecisionClause^^^Mfon - AppropriateDecisionClausePosition + 1 
End If 

End Function 

Private Function LastClauseOf Type (Citation As cCitation, ClauseTypeName As String) As IClause 

Dim bcClause As IClause 
Dim i As Long 



For i = Citation. AllClauses .Count To 1 Step -1 
Set bcClause = Citation. AllClauses (i) 
If TypeName (bcClause) = ClauseTypeName Then 
Set LastClauseOfType = bcClause 
Exit Function 
End If 
Next i 

End Function 
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1 — Copyright 2001 by Robert L. Jacobaj^ 

Option Explicit ^^^B 

Private mcolAllClauses As cClauses 

Private mcolCaseNameClauses As Collection 
Private mcolReporterClauses As Collection 
Private mcolCourtClauses As Collection 
Private mcolJurisdictionClauses As Collection 

Private mbcCaseNameClause As cClauseCaseName 

Private mbcCourtClause As cClauseCourt 

Private mbcDateClause As cClauseDate 

Private mbcJurisdictionClause As cClauseJurisdiction 

Private mbcCourt As cCourt 

Private mbcJurisdiction As cJurisdiction 

Private mlngCitationStart As Long 
Private mlngCitationEnd As Long 
Private mlngCitationMaximumEnd As Long 

Private mlngDecisionClauseStart As Long 
Private mlngDecisionClauseEnd As Long 
Private mbolWordUsed < ) As Boolean 

Private mlngScore As Long 

Public Property Get Court ( ) As cCourt 

Set Court = mbcCourt 
End Property 

Public Property Get Jurisdiction( ) As cJurisdiction 

Set Jurisdiction = mbcJurisdiction 
End Property 

Public Property Get CitationStart ( ) As Long 

CifcationStart = mlngCitationStart 
End Pfepjperty 

Public^Property Get CitationEnd( ) As Long 

CiidjationEnd = mlngCitationEnd 
End Property 

PubliacssProperty Get AllClausesO As cClauses 

Se^G AllClauses = mcolAllClauses 
End Ejfigperty 

Publifff J Property Get CaseNameClause ( ) As cClauseCaseName 

Se=fc CaseNameClause = mbcCaseNameClause 
End Property 

Publfc_ Property Get CourtClause { ) As cClauseCourt 

Sef CourtClause = mbcCourtClause 
End Property 

Publ^e^ Property Get DateClauseO As cClauseDate 

3et DateClause = mbcDateClause 
End f&ioper ty 

Jiss. 

Publ^gj Property Get JurisdictionClause ( ) As cClauseJurisdiction 

Se.t JurisdictionClause = mbcJurisdictionClause 
End Property 

Public Property Get ReporterClauses ( ) As Collection 

Set ReporterClauses = mcolReporterClauses 
End Property 

Public Property Get DecisionClauseStart ( ) As Long 
DecisionClauseStart = mlngDecisionClauseStart 
End Property 

Public Property Get DecisionClauseEnd( ) As Long 

DecisionClauseEnd = mlngDecisionClauseEnd 
End Property 

Public Property Get WordlsRecognized (WordNumber As Long) As Boolean 

WordlsRecognized = mbolWordUsed (WordNumber) 
End Property 

Public Property Get Text ( ) As String 

Text = ActiveDoc -Words (mlngCitationStart , mlngCitationEnd) 
End Property 

Friend Property Get Score 0 As Long 

Score = mlngScore 
End Property 

Public Function Year ( ) As Long 

If Not (mbcDateClause Is Nothing) Then Year = mbcDateClause . Year 
End Function 



Public Sub Initialize (Clauses As Collection, CitationEnd) 
Dim bcClause As IClause 

'-- Identify the start and provisional (maximum) end of the citation. 
Set bcClause = Clauses (1) 
mlngCitationStart = bcClause. ClauseStart 
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seJ^isdictio^^^ TypeOf bcClause Is cClauseCourt Oj^ttroeC 
C^^^pnStart^BP) = "(" Then mlngCi tat ion Start = n^^^Bta 



If TypeOf bcClause Is cClauseJ^isdictio^^B TypeOf bcClause Is cClauseCourt Oj^geOf I^^Buse Is cClauseDate Then 
If Ac tiveDoc. Words (mlngC^^^pnStart^BP) - "(" Then mlngCitationStart = n^^^^jtatioMKirt - 1 

End If 

mlngCitationEnd = CitationEnd 



Call LoadClauses (Clauses) 
Call MarkRecognizedWords 



Set mbc Jurisdiction = BestJurisdiction( ) 
Set mbcCourt = BestCourtO 



Call LocatePageAndVolumeNumbers 
Call Located tationEnd 



mlngScore = CalculateScore ( ) 

Call AssociateEditorReporters 
Call AssociateReportersWithCourt 



End Sub 



Private Sub LoadClauses (Clauses As Collection) 

* — Sort each clause into the respective collection. 
Dim bcClause As iClause 

Dim bcPriorReporterClause As cClauseReporter 
Dim bcEditor As cEditor 



Set mcolAllClauses = New cClauses 

Set mcolReporterClauses = New Collection 

Set mcolCaseNameClauses = New Collection 

Set mcolCourtClauses = New Collection 

Set mcolJurisdictionClauses = New Collection 



For Each bcClause In Clauses 



If TypeOf bcClause Is cClauseCaseName Then 
jLJ Set mbcCaseNameClause = bcClause 

mcolAllClauses .Add bcClause 
%hi mcolCaseNameClauses .Add bcClause 
%„l Elself TypeOf bcClause Is cClauseCourt Then 

mcolCourtClauses . Add bcClause 
\J mcolAllClauses. Add bcClause 
E m Elself TypeOf bcClause Is cClauseDate Then 
%f \ Set mbcDateClause = bcClause 
mcolAllClauses. Add bcClause 
Elself TypeOf bcClause Is cClauseJurisdiction Then 
mcolJurisdictionClauses .Add bcClause 
mcolAllClauses .Add bcClause 
Elself TypeOf bcClause Is cClauseReporter Then 

s Set bcEditor = IsEditor (bcClause) 

f~\ If Not (bcEditor Is Nothing) Then 

J* Set bcPriorReporterClause = mcolAllClauses (mcolAllClauses . Count) 

||| Set bcPriorReporterClause . EditorClause = bcEditor 

lil Else 

5teJ mcolReporterClauses .Add bcClause 

= : mcolAllClauses. Add bcClause 

End If 

Set bcEditor = Nothing 
M End If 
Next bcClause 



End Sub 



Private Function IsEditor (ReporterClause As cClauseReporter) As cEditor 



' — If the last clause before this clause was a reporter clause, then test whether this clause looks sufficiently 
like an editor that it should be added as an editor to the prior reporter clause. 



Dim bcEditor As cEditor 

Dim bcPriorReporterClause As cClauseReporter 



If mcolReporterClauses . Count > 0 Then 

If TypeOf mcolAllClauses (mcolAllClauses .Count) Is cClauseReporter Then 

Set bcPriorReporterClause = mcolAllClauses (mcolAllClauses . Count) 
Set bcEditor = New cEditor 
With bcEditor 

Set .Reporter = ReporterClause . Reporter 

.AbrvStart = ReporterClause. AbrvStart 

. AbrvEnd = ReporterClause . AbrvEnd 

If .EditorScore (bcPriorReporterClause .AbrvEnd) >= 6 Then Set IsEditor = bcEditor 
End With 

End If 
End If 

End Function 

Private Function Best Jurisdiction ( ) As cJurisdiction 

■ — Sets mbcJurisdiction to the best jurisdiction indicated by the citation's jurisdiction clause, court clause and 
reporter clauses. 



Dim bcJurisdictionClause As cClauseJurisdiction 
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Dim bcReporterClause As cClause£ 
Dim bcCourtClause As cClauseCoi 
Dim bcJurisdiction As cJurisdi 
Dim strClauseText As String 
Dim IngBestScore As Long 
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Call Jurisdictions . ScoreReset 

For Each bcJurisdictionClause In mcolJurisdictionClauses 

' — Award points for the jurisdiction identified by the jurisdiction clause(s) . 
Set bcJurisdiction = bcJurisdictionClause. Jurisdiction 

bcJurisdiction . Score = bcJurisdiction. Score + 50 * bcJurisdictionClause . Score 

' — Award points if, for each reporter clause, the reporter is used by this jurisdiction. 
For Each bcReporterClause In mcolReporterClauses 

If ReporterUsedByJurisdiction (bcReporterClause , bcJurisdiction) Then 

bcJurisdiction. Score = bcJurisdiction . Score + 20 * bcReporterClause . Score 

End If 
Next bcReporterClause 

Next bcJurisdictionClause 

1 -- Award points for the jurisdiction implicit in any of the reporter clauses. Award three points if the jurisdiction is 

implicit in the court (e.g., a federal court); otherwise, award two points. 
For Each bcReporterClause In mcolReporterClauses 

If bcReporterClause. Reporter .Jurisdictionlmplicit = True Then 

Set bcJurisdiction = bcReporterClause .Reporter . Parent . Parent 

If Not (bcReporterClause, Reporter. ImplicitCourt Is Nothing) Then 

bcJurisdiction. Score = bcJurisdiction. Score + 30 * bcReporterClause . Score 

Else 

bcJurisdiction. Score = bcJurisdiction. Score + 20 * bcReporterClause . Score 
End If 
End If 
Next bcReporterClause 

For Each bcCourtClause In mcolCourtClauses 
dri If bcCourtClause . Court .Jurisdictionlmplicit = True Then 

is I 

yfl ' — Award points for the jurisdiction implicit in the court clause(s). 
. Set bcJurisdiction = bcCourtClause . Court . Parent 

%j bcJurisdiction . Score = bcJurisdiction. Score + 20 * bcCourtClause . Score 
^- § 

™ ' — Award points if, for each reporter clause, the reporter is used by this jurisdiction. 

IH For Each bcReporterClause In mcolReporterClauses 

* T 5 If ReporterUsedByJurisdiction (bcReporterClause, bcJurisdiction) Then 

&='= bcJurisdiction. Score = bcJurisdiction. Score + 20 * bcReporterClause . Score 

End If 
Next bcReporterClause 

^ End If 
Nbext bcCourtClause 

In I- Select the jurisdiction with the highest score. 
Set BestJurisdiction = Jurisdictions . ScoreBest 

Search for the most appropriate jurisdiction clause, if there is one. 

First, if the jurisdiction was identified above, then look for the jurisdiction clause that best matches this jurisdiction. 
If; Not (mbcJurisdiction Is Nothing) Then 

For Each bcJurisdictionClause In mcolJurisdictionClauses 
f^i If bcJurisdictionClause .Jurisdiction Is mbcJurisdiction Then 

= " If mbcJurisdictionClause Is Nothing Then 

Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause . Score 
Elself bcJurisdictionClause . Score > IngBestScore Then 
Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause . Score 
End If 
End If 

Next bcJurisdictionClause 
End If 

' -- If no jurisdiction clause was identified in the first pass, just look for the best jurisdiction clause period (regardless of a 

matching court.) 
If mbcJurisdictionClause Is Nothing Then 

For Each bcJurisdictionClause In mcolJurisdictionClauses 
If mbcJurisdictionClause Is Nothing Then 

Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause . Score 
Elself bcJurisdictionClause. Score > IngBestScore Then 
Set mbcJurisdictionClause = bcJurisdictionClause 
IngBestScore = bcJurisdictionClause . Score 
End If 

Next bcJurisdictionClause 
End If 

End Function 

Private Function ReporterUsedByJurisdiction (ReporterClause As cClauseReporter, Jurisdiction As cJurisdiction) As Boolean 
Dim strReporterText As String 

strReporterText = Ac tiveDoc. Words ( Repor terClause .AbrvS tart , ReporterClause .AbrvEnd) 

If Not ( Jurisdiction. AllReporters. I tern (strReporterText, True, True) Is Nothing) Then ReporterUsedByJurisdiction = True 
End Function 



Private Function BestCourt ( ) As cCourt 
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Returns the best court indifj^ad by t^^Bltation ' s clauses. 



Dim IngYear As Long 
Dim bcCourtClause As cClauseCou 
Dim bcReporterClause As cClauseReporter 
Dim strClauseText As String 
Dim bcFunctions As New cPublicFunctions 
Dim bcCourt As cCourt 
Dim IngBestScore As Long 



i^^d. by t^^Bltation' s clauses. ^^^t 



If Not (mbc Jurisdiction Is Nothing) Then 

If the jurisdiction was identified, then look for the clause that best identifies the court. 

If Not mbcDateClause Is Nothing Then IngYear = mbcDateClause . Year 
Call mbcJurisdiction. Courts . ScoreReset 

Award points for each court identified by a court clause that is consistent with the jurisdiction. Also, fix the 
court clause's associated court so that in "Minn. Ct. App. e.g., the associated court refers to Minnesota's 
court of appeals, not the Alabama court of appeals. 

For Each bcCourtClause In mcolCourtClauses 
strClauseText = bcCourtClause. Text 

Set bcCourt = mbcJurisdiction. Courts , Item (strClauseText , True, True, IngYear) 
If Not {bcCourt Is Nothing) Then 

Set bcCourtClause. Court = bcCourt 
bcCourt. Score = bcCourt . Score +30 
End If 
Next bcCourtClause 

'-- Award points for each court that is implicit within the reporter clause. 

For Each bcReporterClause In mcolReporterClauses 

Set bcCourt = bcReporterClause. Reporter . ImplicitCourt 
If Not (bcCourt Is Nothing) Then 

If bcCourt . Parent Is mbcJurisdiction Then 
bcCourt . Score = bcCourt . Score + 1 
j„ End If 

O End If 

Next bcReporterClause 

\i Set BestCourt = mbcJurisdiction. Courts. ScoreBest 

%j 

: s= ' — If no potential courts were found above, then look for a court within the jurisdiction that does not need an explicit 

Ifi ' court designation. (I.e., a federal or state supreme court.) 

^ _ If BestCourt Is Nothing And Not (mbcJurisdiction Is Nothing) Then 

*== Set bcCourt = mbcJurisdiction. Courts. Item( "" , False, False, IngYear) 

#= If Not (bcCourt Is Nothing) Then 



If mbcJurisdiction. FullName = "Federal" Then 

' — If the jurisdiction is federal and there is no court clause, then set the court to the U.S. Supreme Court 
1 only if there are no reporters or at least one of the reporters is valid for the Supreme Court. 
|y ' (Do not accept, e.g., "123 F.2d 456 (1980)" as the Supreme Court.) 

If mcolReporterClauses. Count = 0 Then 
^zt Set BestCourt = bcCourt 

|.l Elself bcFunctions. ReportersCompatibleWithCourt (bcCourt, mcolReporterClauses) >= 1 Then 

Set BestCourt = bcCourt 
End If 

Else 

Set BestCourt = bcCourt 
End If 

End If 
End If 

End If 

1 -- Search for the most appropriate court clause, if there is one. 

■ — First, if the court was identified above, then look for the court clause that best matches this court. 
If Not (mbcCourt Is Nothing) Then 

For Each bcCourtClause In mcolCourtClauses 
If bcCourtClause .Court Is mbcCourt Then 
If mbcCourtClause Is Nothing Then 

Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause . Score 
Elself bcCourtClause. Score > IngBestScore Then 
Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause . Score 
End If 
End If 
Next bcCourtClause 
End If 

' — If no court clause was identified in the first pass, just look for the best court clause period (regardless of a 

' matching court.) 

If mbcCourtClause Is Nothing Then 

For Each bcCourtClause In mcolCourtClauses 
If mbcCourtClause Is Nothing Then 

Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause. Score 
Elself bcCourtClause . Score > IngBestScore Then 
Set mbcCourtClause = bcCourtClause 
IngBestScore = bcCourtClause . Score 
End If 
Next bcCourtClause 
End If 
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End Function 

Private Sub LocatePageAndVolumeNlMKers ( ) 



'-- For each reporter clause, identify the volume number, first page number and pinpoint page numbers. 

Note: this first identifies the volume number, then the first page number, and then the volume number, in that order, 
so that if one reporter clause "wants" that number as a page number, but the other wants it as a volume number, the 
volume number will prevail. 

Dim bcReporterClause As cClauseReporter 
Dim IngWord As Long 
Dim strWord As String 
Dim strWordTrim As String 
Dim i As Long 



' -- Identify the volume numbers. 

For Each bcReporterClause In mcolReporterClauses 
IngWord = bcReporterClause. ClauseStart - 1 
If Not mbolWordUsed( IngWord) Then 

If Ac tiveDoc .Words. I sNumber (IngWord, True) Then 

bcReporterClause .Vo lumeNumber Location = IngWord 
mbolWordUsed( IngWord) = True 
End If 
End If 
Next bcReporterClause 

' -- Identify the first page locations. 
For Each bcReporterClause In mcolReporterClauses 
IngWord = bcReporterClause .ClauseEnd + 1 
If ActiveDoc . Words . IsNumber ( IngWord, True) Then 
bcReporterClause. FirstPageLocation = IngWord 
mbolWordUsed( IngWord) = True 
Elself ActiveDoc .Words (IngWord) = "." Then 
If Not mbolWordUsed{ IngWord + 1) Then 

If ActiveDoc .Words . IsNumber (IngWord + 1, True) Then 
bcReporterClause. FirstPageLocation = IngWord + 1 
mbolWordUsed( IngWord +1) = True 
jp End If 

.~ End If 
*U End If 
Nie^t bcReporterClause 

'\4 Identify the pinpoint page numbers 
Ear Each bcReporterClause In mcolReporterClauses 
y§ With bcReporterClause 

-~~ For i = bcReporterClause. ClauseEnd + 1 To mlngCitationEnd 

4£= 



If mbolWordUsed(i) = True Then Exit For 



strWordTrim = ActiveDoc .Words . WordsTrim(i) 
5 strWord = ActiveDoc .Words ( i) 

--^ If strWord <> "," Then 



■±p; 



If Ac tiveDoc. Words. IsNumber (i, True) Then 
If .PinStart = 0 Then .PinStart = i 
_ . bcReporterClause. PinEnd = i 

Elself Ac tiveDoc. Words. IsNumber (i + 1, True) Then 
f c | If strWordTrim = "page" _ 

J" Or strWordTrim = "pages" 

Ssi Or strWordTrim = "note" _ 

Or strWordTrim = "notes" _ 
Or strWordTrim = "footnote" _ 
Or strWordTrim = "footnotes" _ 
Or strWordTrim = "to" _ 
Or strWordTrim = "and" _ 
Or strWordTrim = "at" _ 
Or strWord = "*" _ 
Or strWord = "**" _ 
Or strWord = "***" _ 
Or strWord = »**★★» _ 
Or strWord =»-■•_ 
Or strWordTrim = "p" _ 
Or strWordTrim = "pg" _ 
Or strWordTrim = "pp" _ 
Or strWordTrim = "n" _ 
Or strWordTrim = "nn" _ 
Or strWordTrim = "ns" _ 
Or strWordTrim = " fn" _ 
Or strWordTrim = " fns" Then 

If .PinStart = 0 Then .PinStart = i 
. PinEnd = i + 1 
End If 

Elself ActiveDoc .Words (i +1) = And ActiveDoc .Words . IsNumber (i + 2, True) Then 

If strWordTrim = "p M _ 

Or strWordTrim = "pg" _ 

Or strWordTrim - "pp" _ 

Or strWordTrim = "n" _ 

Or strWordTrim = "nn" _ 

Or strWordTrim = "ns" _ 

Or strWordTrim = "fn" _ 

Or strWordTrim = "fns" Then 

If .PinStart = 0 Then .PinStart = i 
.PinEnd = i + 2 

End If 
End If 

If .PinStart = 0 And strWordTrim <> "" Then Exit For 
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End If 

If .PinEnd > 0 Then 

For i = . PinStart To . PinEnd 
mbolWordUsed(i) = True 

Next i 
End If 

End With 
Next bcReporterClause 

End Sub 

Private Sub LocateCitationEnd( ) 

Dim bcLastClause As IClause 

Dim i As Long 

Dim strWord As String 

Dim InglnsideParenth As Long 

Dim IngBestParenthEnd As Long 



Set bcLastClause = mcolAHClauses (mcolAHClauses . Count ) 

'-- First, set the citation end to any semicolon that follows the last clause. 
For i = bcLastClause. ClauseEnd t 1 To mlngCitationEnd 
If ActiveDoc.Words(i) = ";" Then 
mlngCitationEnd = i - 1 
Exit For 
End If 
Next i 

'-- Next, determine whether there is a mismatched parentheses count -- that is, whether the citation should have a close 

parenthesis after the last clause. Start by counting the parentheses to the left of the last clause 
For i = bcLastClause. ClauseStart - 1 To mlngCitatibnStart Step -1 
strWord = ActiveDoc .Words (i) 
If strWord = "(" Then 

4=J InglnsideParenth = InglnsideParenth + 1 

,:.=! Elself strWord = ■)" Then 

%h$ InglnsideParenth = InglnsideParenth - 1 
\\ End If 
Next i 

' 5 -«j If the parentheses are imballanced, then look for the correct number of closed parentheses after the last clause. 
M UnglnsideParenth > 0 Then 

^ For i = bcLastClause. ClauseEnd + 1 To mlngCitationEnd 
2 - strWord = ActiveDoc .Words (i) 

ft] If strWord = " { " Then 

;« InglnsideParenth = InglnsideParenth + 1 

4f= Elself strWord = ")" Then 

InglnsideParenth = InglnsideParenth - 1 
^ IngBestParenthEnd = i 

f~\ If InglnsideParenth = 0 Then Exit For 

I s ! End If 

[Li Next i 

Asi If IngBestParenthEnd > 0 Then mlngCitationEnd = IngBestParenthEnd 
Sad If 

End Sub 

Privltfe Function CalculateScore { ) As Long 

Dim IngScore As Long 

Dim IngAverageClauseScore As Long 

Dim bcClause As IClause 

Dim bcJurisdictionClause As cClauseJurisdiction 

Dim bcCourtClause As cClauseCourt 

Dim bcReporterClause As cClauseReporter 

Dim bcClauselDingJur As IClause 

Dim bcClauselDingCourt As IClause 

Dim i As Long 



'-- Award up to 100 points for the case name clause. 
If Not {mbcCaseNameClause Is Nothing) Then 

Set bcClause = mbcCaseNameClause 

IngScore = 100 * bcClause . Score 
End If 

'-- Award up to 150 points based on the average reporter clause score. 
If mcolReporterClauses . Count > 0 Then 

For Each bcClause In mcolReporterClauses 

IngAverageClauseScore = IngAverageClauseScore + 150 * bcClause . Score 

Next bcClause 

IngAverageClauseScore = IngAverageClauseScore / mcolReporterClauses . Count 
IngScore = IngScore + IngAverageClauseScore 
End If 

'-- Award up to 100 points for the identification of the jurisdiction. 
If Not {mbcJurisdiction Is Nothing) Then 

For Each bcJurisdictionClause In mcolJurisdictionClauses 

If bcJurisdictionClause. Jurisdiction Is mbcJurisdiction Then 
Set bcClauselDingJur = bcJurisdictionClause 
Exit For 
End If 

Next bcJurisdictionClause 

If bcClauselDingJur Is Nothing Then 

For Each bcCourtClause In mcolCourtClauses 

If bcCourtClause. Court. implicitJurisdiction Is mbcJurisdiction Then 
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Set bcClauselDinc^ 
Exit For 
End If 
Next bcCourtClause 
End If 

If bcClauselDingJur Is Nothing Then 

For Each bcReporterClause In mcolReporterClauses 

If bcReporterClause. Reporter . ImplicitJurisdiction Is mbcJurisdiction Then 
Set bcClauselDingJur = bcReporterClause 
Exit For 
End If 
Next bcReporterClause 
End If 

If Not (bcClauselDingJur Is Nothing) Then IngScore = IngScore + 100 * bcClauselDingJur . Score 
End If 

' — Award up to 100 points for the clause that identifies the court. If the court was identified, award points based on the 
the clause that IDd it. Otherwise, award points for the identified court clause, if any. 



If Not (mbcCourt Is Nothing) Then 

For Each bcCourtClause In mcolCourtClauses 
If bcCourtClause . Court Is mbcCourt Then 

Set bcClauselDingCourt = bcCourtClause 
Exit For 
End If 
Next bcCourtClause 

If bcClauselDingCourt Is Nothing Then 

For Each bcReporterClause In mcolReporterClauses 

If bcReporterClause. Reporter . ImplicitCourt Is mbcCourt Then 
Set bcClauselDingCourt = bcReporterClause 
Exit For 
End If 
Next bcReporterClause 
End if 

If bcClauselDingCourt Is Nothing Then 
If mbcCourt . AbrvNameTrim = • " Then 

Set bcClauselDingCourt = bcClauselDingJur 
End If 
4 End If 
E|l If 

If!jtfot (bcClauselDingCourt Is Nothing) Then 
^LJ IngScore = IngScore + 50 * bcClauselDingCourt . Score 
EJLself Not (mbcCourtClause Is Nothing) Then 
"= Set bcClauselDingCourt = mbcCourtClause 

IngScore = IngScore + 100 * bcClauselDingCourt . Score 

Sn<3 If 

*:-t Award up to 100 points for the identification of the date. 

= Not (mbcDateClause Is Nothing) Then 
h\ Set bcClause = mbcDateClause 
:^ IngScore = IngScore + 100 * bcClause. Score 
££& If 

s — Subtract 50 points for each case name clause, court clause or jurisdiction clause greater than one. 

£f-?mcolCaseNameClauses . Count > 1 Then IngScore = IngScore - 50 * (mcolCaseNameClauses . Count - 1) 

ft- mcolCourtClauses . Count > 1 Then IngScore = IngScore - 50 * (mcolCourtClauses . Count - 1) 

til mcolJurisdictionClauses . Count > 1 Then IngScore = IngScore - 50 * (mcolJurisdictionClauses - Count - 1} 

%z2- Subtract 50 points for each instance where the reporter clauses are not contiguous . 
If. mcolReporterClauses . Count > 1 Then 

' — step through every reporter clause except the last one, and determine if its next clause is a reporter clause. 

For i = 1 To mcolReporterClauses -Count - 1 
J** Set bcClause = mcolReporterClauses ( i) 

Lei If Not (TypeOf bcClause. NextClause Is cClauseReporter) Then IngScore = IngScore - 50 

; Next i 
End If 

'-- Subtract 10 points for each unrecognized word, and subtract 100 points if a semicolon is encountered. 
For i = mlngCitationStart To mlngCitationEnd 
If Not mbolWordUsed(i) Then 

If Not ( Ac tiveDoc. Words. WordsTrim(i) = "") Then IngScore = IngScore - 10 
If Ac tiveDoc .Words (i) = ";" Then IngScore = IngScore - 100 
End If 
Next i 



CalculateScore = IngScore 



End Function 



Friend Sub FinalizeCitation ( ) 



Call MarkRecognizedWords 

If Not (mbcCourt Is Nothing) Then Call AssociateReportersWithCourt 
End Sub 

Private Sub AssociateReportersWithCourt ( ) 

Dim bcReporterClause As cClauseReporter 

Dim bcReporter As cReporter 

Dim bcMatchingReporter As cReporter 



For Each bcReporterClause In mcolReporterClauses 

• -- If this particular reporter is not used by this court group, but there is a reporter with the same abbreviation 
used by this court group, then set the reporter clause's associated reporter to the correct reporter. 



Set bcReporter = bcReporterClause .Reporter 

If Not (bcReporter . Parent Is mbcCourt . Parent ) Then 
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False) 



If ActiveDoc . Words^^^5sTrim(bcH^^:terClause, AbrvStart, bcReporterj^^^Jp . AbrvES^F = bcReporter . AbrvNameTrim Then 
Set bcMatchin^^^Bter = Court . Reporters . I tern (bcReporterClause .^^^Kxt , True, False) 

If bcMatchingH^^^er Is Nothing Then Set bcMatchingReporter = m^Wourt . Parent . AllReporters (bcReporterClause. AbrvText, True 



ue, True) 



Else 

Set bcMatchingReporter = Court .Reporters . Item (bcReporterClause. AbrvText, True, True) 

If bcMatchingReporter Is Nothing Then Set bcMatchingReporter = Court . Parent .AllReporters. Item(bcReporterClause. AbrvText, Tr 
End If 

If Not (bcMatchingReporter Is Nothing) Then Set bcReporterClause. Reporter = bcMatchingReporter 

End If 
Next bcReporterClause 

End Sub 

Private Sub AssociateEditorReporters { ) 

Dim bcReporterClause As cClauseReporter 
Dim bcNextReporterClause As cClauseReporter 
Dim bcEditorMainReporter As cReporter 
Dim bcMainReporterClause As cClauseReporter 
Dim i As Long 

'-- If an editor clause wasn't attached above, then search for any associated main reporter clause. 

For Each bcReporterClause In mcolReporterClauses 

If bcReporterClause. EditorClause Is Nothing Then 

If bcReporterClause . Reporter . IsEditorReporter Then 

Set bcEditorMainReporter = bcReporterClause .Reporter .MainReporter 
For Each bcMainReporterClause In mcolReporterClauses 

If bcMainReporterClause. Reporter Is bcEditorMainReporter Then 
Set bcMainReporterClause . EditorClause = bcReporterClause 
Exit For 
%=J End If 

Next bcMainReporterClause 

%f End If 

. End If 
■*.-. s 

jtfQxt bcReporterClause 



End ISub 



Private Sub MarkRecognizedWords ( ) 

sips: 

D_im bcClause As IClause 
Dim i As Long 

Repim mbolWordUsed(mlngCitationStart - 5 To mlngCitationEnd + 5) 
For Each bcClause In mcolAllClauses 

W For i = bcClause. ClauseStart To bcClause . ClauseEnd 
U-i mbolWordUsed(i) = True 

^ Next i 
^gct bcClause 

End Idfo 

Friend Sub PrintClauses (Number As Long, PrintType As Boolean, PrintScore As Boolean) 

Dim bcClause As IClause 
Dim IngAddFrom As Long 
Dim strCitation As String 
Dim strlnfo As String 
Dim strMisc As String 



If PrintType = True Or PrintScore = True Then 
IngAddFrom = mlngCi tat ionS tart 
For Each bcClause In mcolAllClauses 
strlnfo = " [" 

If PrintType = True Then strlnfo = strlnfo & Right $ (TypeName (bcClause) , Len (TypeName (bcClause) ) - 7) 
If PrintScore = True Then 

If PrintType = True Then strlnfo = strlnfo & " 

strlnfo = strlnfo & Format (bcClause . Score, "0.00") 
End If 

strlnfo = strlnfo & "3 " 

strCitation = strCitation & ActiveDoc .Words { IngAddFrom, bcClause. ClauseEnd) & strlnfo 
IngAddFrom = bcClause .ClauseEnd + 1 
Next bcClause 

strCitation = strCitation & ActiveDoc .Words (IngAddFrom, mlngCitationEnd) 

Else 

strCitation = ActiveDoc .Words (mlngCitationStart, mlngCitationEnd) 
End If 

If Number > 0 Then 

Debug. Print & Number & " : " & strCitation 

Else 

Debug. Print strCitation 
End If 



If mbcJurisdiction Is Nothing Then 
strMisc = "Jurisdiction: none; 

Else 
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strMisc = "Jurisdiction: " &_m bcJuris^^Mion . FullName & 
End If 



If mbcCourt Is Nothing Then 

strMisc = strMisc & "Court: none; " 

Else 

strMisc = strMisc & "Court: M & mbcCourt . FullName fc "; 
End If 

strMisc = strMisc & "Score: " & mlngScore 
Debug. Print strMisc 
Debug. Print 



End Sub 
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' — Copyright 2001 by Robert L . Jacobs on . 

Option Explicit 

Private mlngNodesCount As Long 
Private mbcBestCitation As cCitation 
Private mbolPrintClauses As Boolean 
Private mlngCitationsBuiltSingle As Long 
Private mlngCitationsBuiltTotal As Long 
Private mbcClauseLocator As cClauseLocator 

Private Const MINIMUM_VALID_CITATION As Long = 150 
Private Const ACCEPTABLE_DIFFERENCE As Long = 500 
Private Const MINIMUM_CONTINUE As Long = 100 
Private Const MAXIMUM_DISTANCE As Long =30 
Private Const PERFECT_SCORE As Long = 550 

Public Function NextCitationFromWord (Word As Long) As cCitation 

Dim colClauses As Collection 
Dim bcClause As IClause 
Dim i As Long 
Dim j As Long 



mbolPrintClauses = True 

Set mbcBestCitation = Nothing 
mlngCitationsBuiltSingle = 0 
mlngNodesCount = 0 

For i = Word To ActiveDoc .Words . Count 

For Each bcClause In mbcClauseLocator .ClausesStartingAtWord(i) 

Set colClauses = New Collection 

colClauses .Add bcClause 

Call TraverseTree (colClauses, 0) 
Next bcClause 

If Not (mbcBestCitation Is Nothing) Then Exit For 
Nepct i 

r "~ ; 

Ir>$Jot (mbcBestCitation Is Nothing) Then 

If mbcBestCitation. Score < PERFECT_SCORE Then 

■s 

^1 For j = mbcBestCitation. CitationStart + 1 To mbcBestCitation. CitationEnd 

f?| For Each bcClause In mbcClauseLocator . ClausesStartingAtWordt j ) 

= Set colClauses = New Collection 

l^i colClauses. Add bcClause 

Call TraverseTree (colClauses, 0) 

|fi * Next bcClause 

:« Next j 

e End If 

til Set NextCitationFromWord = mbcBestCitation 

±*\ Call mbcBestCitation. PrintClauses ( 0, True, True) 

Call mbcBestCitation . FinalizeCitation 

f&d If 

End function 

Private Sub TraverseTree (ParentClauses As Collection, ParentScore As Long) 

Dim bcCitation As cCitation 
Dim bcLastClause As IClause 
Dim bcClause As IClause 
Dim colClauses As Collection 

Set bcLastClause = ParentClauses (ParentClauses .Count) 
For Each bcClause In Children(bcLastClause.ClauseEnd) 

If Not (mbcBestCitation Is Nothing) Then If mbcBestCitation. Score = PERFECT_SCORE Then Exit Sub 

Set colClauses = CloneCollection (ParentClauses) 
colClauses .Add bcClause 

Set bcCitation = BuildCitation (colClauses) 

If mbolPrintClauses Then Call bcCitation . PrintClauses (mlngNodesCount, True, True) 

If bcCitation. Score > MINIMUM_CONTINUE And bcCitation. Score > (ParentScore - 100) Then 

If mbcBestCitation Is Nothing Then 

If bcCitation. Score > MINIMUM_VALID_CITATION Then Set mbcBestCitation = bcCitation 
Elself bcCitation. Score > mbcBestCitation. Score Then 

Set mbcBestCitation = bcCitation 
End If 

Call TraverseTree (colClauses, bcCitation . Score) 
End If 
Next bcClause 
End Sub 

Private Function BuildCitation (Clauses As Collection) As cCitation 



Dim colClauses As Collection 
Dim bcLastClause As IClause 
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Dim IngNextClauseStart As Long 



• • • 



mlngNodesCount = mlngNodesCount 
mlngCitationsBuiltSingle = mlngCitationsBuiltSingle + 1 
mlngCitationsBuiltTotal = mlngCitationsBuiltTotal + 1 

' -- Create a citation with these clauses and evaluate the result. 
Set bcLastClause = Clauses (Clauses . Count) 

For IngNextClauseStart = bcLastClause . ClauseEnd + 1 To ActiveDoc .Words . Count 

If mbcClauseLocator .ClausesStartingAtWord( IngNextClauseStart) .Count > 0 Then Exit For 
Next IngNextClauseStart 

Set BuildCitation = New cCitation 

Call BuildCitation. Initialize (Clauses, IngNextClauseStart - 1) 
End Function 

Private Function Children (Afterword As Long) As Collection 

'-- Search from the end of the parent clause to the end of the search range. Return the collection of clauses at the 
next word that is the start of clauses. 

Dim i As Long 

Dim j As Long 

Dim bcClause As IClause 

Dim colClausesAtWord As Collection 

Dim IngShortestClauseEnd As Long 

Dim IngLastWord As Long 



IngLastWord = ActiveDoc .Words . Count 

If Afterword + MAXIMUM_DI STANCE < IngLastWord Then IngLastWord = Afterword + MAXIMUM_DI STANCE 

For i = Afterword + 1 To IngLastWord 

Set colClausesAtWord = mbcClauseLocator .ClausesStartingAtWord(i) 
If colClausesAtWord. Count > 0 Then 

4 __ '-- Add the clauses at the current word to the children collection 

III Set Children = CloneCollection (mbcClauseLocator . ClausesStartingAtWord(i) ) 

%ll •__ Determine the end of the shortest clause. 

\ I For Each bcClause In Children 

If IngShortestClauseEnd = 0 Then 
%l IngShortestClauseEnd = bcClause . ClauseEnd 

. = I Elself bcClause . ClauseEnd < IngShortestClauseEnd Then 

III IngShortestClauseEnd = bcClause . ClauseEnd 

End If 
Next bcClause 



*H '-- Add the clauses that start after the current word, but before the end of the shortest clause 

4i= For j = i + 1 To IngShortestClauseEnd 

Set colClausesAtWord = mbcClauseLocator. ClausesStartingAtWord ( j ) 
s For Each bcClause In colClausesAtWord 

f*% Children. Add bcClause 

2?! Next bcClause 

Next j 



% s i Exit Function 

£ L End If 
Next i 

ff.\ Children Is Nothing Then Set Children = New Collection 
End Function 

Private Function CloneCollection (Source As Collection) As Collection 
Dim bcClause As IClause 



Set CloneCollection = New Collection 
For Each bcClause In Source 

CloneCollection. Add bcClause . Clone 
Next bcClause 

End Function 

Private Sub Class_Initialize ( ) 

Set mbcClauseLocator = New cClauseLocator 
Call mbcClauseLocator . Initialize 



End Sub 
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• — Copyright 2001 by Robert 

Option Explicit 
Implements IClause 

Private mlngSignalStart As Long 
Private mlngSignalEnd As Long 
Private mlngClauseStart As Long 
Private mlngClauseEnd As Long 
Private mlngVersusPosition As Long 
Private mudtPartyName ( ) As udtPartyName 
Private mlngPartiesCount As Long 

Private mbcNextClause As IClause 
Private mbc Prior Clause As IClause 

Public Type udtPartyName 

Start As Long 

End As Long 
End Type 



Public Property Let ClauseStart (Source As Long) 
mlngClauseStart = Source 

If mlngClauseStart > 0 And mlngClauseEnd > 0 Then Call Parse 
End Property 

Public Property Get ClauseStart ( ) As Long 

ClauseStart = mlngClauseStart 
End Property 

Public Property Let ClauseEnd{ Source As Long) 
mlngClauseEnd = Source 

If mlngClauseStart > 0 And mlngClauseEnd > 0 Then Call Parse 
End Property 

Public Property Get ClauseEndO As Long 

ClauseEnd = mlngClauseEnd 
End Pj^Qperty 

PublicpiProperty Get Signal Start { ) As Long 

S^lgfralStart = mlngSignalStart 
End P^ojperty 

PublifeJProperty Get SignalEndO As Long 

Signal End = mlngSignalEnd 
End Property 

PublFc J Property Get VersusPosition ( ) As Long 

\£tffsus Posit ion - mlngVersusPosition 
End Property 

Public Property Get Text ( ) As String 

'Pext = ActiveDoc* Words (mlngClauseStart , mlngClauseEnd) 
End f^perty 

PublfU Property Get PartyName(PartyNumber As Long) As udtPartyName 

EftftyName = mudtPartyName (Par tyNumber) 
End Idbperty 

Pub if c* Function PartyNameAtWord (WordNumber As Long) As udtPartyName 
af¥j mlngVersusPosition = 0 Or WordNumber < mlngVersusPosition Then 
. PartyNameAtWord = mudtPartyName ( 1) 

PartyNameAtWord = mudtPartyName (2) 
End If 
End Function 

Public Property Get PartiesCount ( ) As Long 

PartiesCount = mlngPartiesCount 
End Property 



Private Property Get IClause„ClauseEnd( ) As Long 

IClause_ClauseEnd = mlngClauseEnd 
End Property 

Private Property Get IClause_ClauseStart ( ) As Long 

IClause_ClauseStart = mlngClauseStart 
End Property 

Private Function IClause_Clone ( ) As IClause 

Dim bcClone As cClauseCaseName 

Set bcClone = New cClauseCaseName 
With bcClone 

.ClauseStart = mlngClauseStart 

.ClauseEnd = mlngClauseEnd 
End With 

Set lClause_Clone = bcClone 
End Function 

Private Property Set IClause_NextClause (RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause ( ) As IClause 

Set IClause_NextClause = mbcNextClause 
End Property 
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Private Property Set IClause_PriorC:I^^^^BlS 1 ^^FlClause) 

Set mbc Prior Clause = RHS 
End Property 

Private Property Get IClause_PriorClause { ) As IClause 

Set IClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text { ) As String 

IClause_Text = TextO 
End Property 

Private Function IClause_Score { ) As Single 

Dim sngScoreContext As Single 
Dim strNextWord As String 

' — The total score is based solely on the context score. 

• — Award up to 0.5 points for the expected preceeding clause and text. 
If mbcPriorClause Is Nothing Then 

sngScoreContext = 0.5 
Elself ActiveDoc. Words (mudtPartyName {1 ). Start - 1) = " , " Then 

sngScoreContext = 0.25 
End If 

' — Award up to 0.5 points for the expected subsequent clause and text. 

If Not (mbcNextClause Is Nothing) Then If TypeOf mbcN ex t Clause Is cClauseReporter Then sngScoreContext = sngScoreContext + 0.25 
strNextWord = ActiveDoc .Words (mlngClauseEnd + 1) 
Select Case strNextWord 
Case " , " 

sngScoreContext = sngScoreContext + 0.25 
Case " ( " 

sngScoreContext = sngScoreContext + 0.125 
End Select 

IClause_Score = sngScoreContext 
End Flajiction 

Frieno^unction Score { ) As Single 

dhdre - IClause_Score ( ) 
End Function 
Ni 

Privatfe Sub Parse () 

! 

i As Long 
I^Lm IngSearchTo As Long 
iCjLA strPhraseTrim As String 
Dim strWordTrim As String 
tffm IngFirs t Par tyNameS tart As Long 

flj mlngClauseStart + 5 > mlngClauseEnd Then 

=te = IngSearchTo = mlngClauseEnd 

iLse 

i e \ IngSearchTo = mlngClauseStart + 10 
Sna If 

|or i = IngSearchTo To mlngClauseStart Step -1 



Hah 



'-- Query: Will WordsTrim return a word when the trailing word(s) is a punctuation mark? Check. 
strPhraseTrim = ActiveDoc .Words .WordsTrim (mlngClauseStart, i) 



If 


strPhraseTrim 




"accord" _ 


Or 


strPhraseTrim 




"accordeg" _ 


Or 


strPhraseTrim 




"see" _ 


Or 


strPhraseTrim 




"seeeg" __ 


Or 


strPhraseTrim 




"seealso" _ 


Or 


strPhraseTrim 




"seealsoeg" _ 


Or 


strPhraseTrim 




"cf" _ 


Or 


strPhraseTrim 




"cfeg" _ 


Or 


strPhraseTrim 




"compare" _ 


Or 


strPhraseTrim 




"compareeg" _ 


Or 


strPhraseTrim 




"but see" _ 


Or 


strPhraseTrim 




"but seeeg" _ 


Or 


strPhraseTrim 




"butcf" _ 


Or 


strPhraseTrim 




"butcfeg" _ 


Or 


strPhraseTrim 




"seegenerally" _ 


Or 


strPhraseTrim 




"seegenerallyeg" _ 


Or 


strPhraseTrim 




" contra " _ 


Or 


strPhraseTrim 




" contraeg " Then 



mlngSignalStart = mlngClauseStart 
If ActiveDoc .Words (i + 1) = "." Then 
mlngSignalEnd = i + 1 

Else 

mlngSignalEnd - i 
End If 
Exit For 



End If 
Next i 

• — Look for the first designation of "versus." 
For i = mlngClauseStart To mlngClauseEnd 

strWordTrim = ActiveDoc . Words .WordsTrim{ i) 

If strWordTrim = "v" Or strWordTrim = "vs" Or strWordTrim = "versus" Then 
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I, then mark i^^Bnd use it as the dividing point to^HMc 



* — If one is found, £hen mark i^^Pnd use it as the dividing point to^^fc the^^Jrt and end of the 

two parties' nam 
mlngVersusPosition 
mlngPartiesCount = 
ReDim mudtPartyName (1 To 2) 
With mudtPartyName ( 1) 

If mlngSignalEnd > 0 Then 

.Start = ActiveDoc .Words .NextFullWord (mlngSignalEnd) 

Else 

.Start = mlngClauseStart 
End If 
.End = i - 1 
End With 

With mudtPartyNaxtie (2) 

.Start = ActiveDoc .Words .NextFullWord ( i) 

.End = mlngClauseEnd 
End With 
Exit For 



End If 
Next i 

' — If a versus wasn't found, then assume that there's only one party. 
If mlngVersusPosition - 0 Then 
mlngPartiesCount = 1 

ReDim mudtPartyName ( 1 To 1) As udtPartyName 
With mudtPartyName ( 1 } 

If mlngSignalEnd > 0 Then 

.Start = ActiveDoc .Words .NextFullWord (mlngSignalEnd) 

Else 

.Start = mlngClauseStart 
End If 

.End = mlngClauseEnd 
End With 
End If 



End Sub 



Privets Sub Class_lnitialize() 

tSausesCount = ClausesCount + 1 

B^cbug. Print "Creating clause. Total: " & ClausesCount 
End ^Sdb 

Priv^rtle Sub Class_Terminate ( ) 

iSszh 

^ClausesCount - ClausesCount - 1 

ijJfbug. Print "Terminating clause. Total: " & ClausesCount 
End £?uh 
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'— Copyright 2001 by Robert L 

Option Explicit 
Implements IClause 

Public Court As cCourt 

Private mlngCourtStart As Long 
Private mlngCourtEnd As Long 
Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 
Private mbol Exact Match As Boolean 

Friend Property Let ExactMatch( Source As Boolean) 

mbolExactMatch = Source 
End Property ■ 

Public Property Get CourtStartO As Long 

CourtStart = mlngCourtStart 
End Property 

Friend Property Let CourtStart (Source As Long) 

mlngCourtStart = Source 
End Property 

Public Property Get CourtEndO As Long 

CourtEnd = mlngCourtEnd 
End Property 

Friend Property Let CourtEnd (Source As Long) 

mlngCourtEnd = Source 
End Property 

Public Property Get Text ( ) As String 

Text = ActiveDoc .Words (mlngCourtStart , mlngCourtEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Sate. PriorClause = mbcPriorClause 
End Pfeaperty 

Public^roperty Get NextClauseO As IClause 

SeJd! NextClause = mbcNextClause 
End property 

Private Property Get IClause_ClauseEnd ( ) As Long 

]f£Aause_ClauseEnd = mlngCourtEnd 
End Property 

Private Property Get IClause_ClauseStart ( ) As Long 

I*£iause_Clause Start = mlngCourtStart 
End Property 

Priv^Ce Function IClause_Clone ( ) As IClause 

£im bcClone As cClauseCourt 

Set bcClone = New cClauseCourt 
Sj£h bcClone 

j s . .CourtStart = mlngCourtStart 
lis .CourtEnd = mlngCourtEnd 

Set .Court = Court 
t*" .ExactMatch = mbolExactMatch 
End With 

Set IClause_Clone = bcClone 
End Function 

Private Property Set IClause_NextClause (RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause ( ) As IClause 

Set IClause_NextClause = mbcNextClause 
End Property 

Private Property Set lClause_PriorClause (RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set IClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text ( ) As String 

lClause_Text = Text 
End Property 

Private Function IClause_Score ( ) As Single 

Dim sngScoreContext As Single 
Dim sngScorelnternal As Single 
Dim strPriorWord As String 

' — Award up to 1 point for the internal score if the court is spelled correctly. 
If mbolExactMatch Then 

sngScorelnternal = 0.75 

If ActiveDoc. Words (mlngCourtStart, mlngCourtEnd) = Court .AbrvName Then sngScorelnternal = sngScorelnternal + 0.25 
End If 




cClauseCourt 



'-- Award up to .5 points fo r th e conte:^^^ore for the expected preceeding c^f^^ and 
If Not (mbcPriorClause Is No^^fer) Then ^^^^ 

If Not (mlngCourt Start ^^^BmbcPriorClause.ClauseEnd) Then strPriorWord ^^^^LveDoc .Words (mlngCourtStart - 1) 
If TypeOf mbcPriorClause^^^cClause Jurisdiction Then 
sngScoreContext = sngScoreContext + 0.25 
Select Case strPriorWord 
Case " " 

sngScoreContext = sngScoreContext + 0.2 5 
Case " , " 

sngScoreContext = sngScoreContext + 0.125 
End Select 

Else 

If TypeOf mbcPriorClause Is cClauseReporter Then sngScoreContext = sngScoreContext + 0.25 
Select Case strPriorWord 
Case " ( " 

sngScoreContext = sngScoreContext + 0.25 
Case " , " , "" 

sngScoreContext = sngScoreContext + 0.125 
End Select 
End If 
End If 

■ — Award up to .5 points for the context score for the expected subsequent clause and text. 
If Not (mbcNextClause Is Nothing) Then 

If TypeOf mbcNextClause Is cClauseDate Then 
sngScoreContext = sngScoreContext +0.25 

If mlngCourtEnd + 1 = mbcNextClause .ClauseStart Then sngScoreContext = sngScoreContext + 0.25 

Else 

If ActiveDoc .Words (mlngCourtEnd + 1) = ")" Then sngScoreContext = sngScoreContext + 0.25 
End If 

Else 

If ActiveDoc .Words (mlngCourtEnd + 1) = ")" Then sngScoreContext = sngScoreContext + 0.25 
End If 

'-- Average the internal and context scores, with 40% weight for the internal score and 60% weight for the context score. 
IClause_Score = 0.4 * sngScorelnternal + 0.6 * sngScoreContext 

End Function 

Frien6rjFunction Score () As Single 

Score - lClause_Score () 
End Friction 
V. I 

PrivaT?e Sub Class_Initialize ( ) 

*&: 

CjfausesCount = ClausesCount + 1 

yljbug. Print "Creating clause. Total: " & ClausesCount 

E . 

End Sub 

Private Sub Class_Terminate ( ) 

ClausesCount - ClausesCount - 1 

3Debug. Print "Terminating clause. Total: ■ & ClausesCount 



End 



Qb 
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' — Copyright 2001 by Robert L 

Option Explicit 
Implements IClause 

Public FullDate As Date 

Private mlngDateStart As Long 
Private mlngDateEnd As Long 
Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 
Private mlngYear As Long 

Public Property Get DateStartO As Long 

DateStart = mlngDateStart 
End Property 

Friend Property Let DateStart (Source As Long) 

mlngDateStart = Source 
End Property 

Public Property Get DateEndO As Long 

DateEnd = mlngDateEnd 
End Property 

Friend Property Let DateEnd (Source As Long) 

mlngDateEnd = Source 
End Property 

Public Property Get Text ( ) As String 

Text = ActiveDoc. Words (mlngDateStart, mlngDateEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Set PriorClause = mbcPriorClause 
End Property 

Public Property Get NextClauseO As IClause 

Set NextClause = mbcNextClause 
End Property 

Publi^LJProperty Get Year() As Long 

Year = mlngYear 
End Property 

V S 

Friendf Property Let Year (Source As Long) 

n^ilgYear = Source 
End Property 
? 8fa 

ft* 

Priva^i Property Get IClause_ClauseEnd{ ) As Long 

IC|ause_ClauseEnd = mlngDateEnd 
End Property 

Private Property Get IClause_ClauseStart ( ) As Long 

H2iause_ClauseStart = mlngDateStart 
End E^Ciperty 

Private Function lClause_Clone ( ) As IClause 

ass- 

#im bcClone As cClauseDate 

Set bcClone = New cClauseDate 
Wjjth bcClone 

" " .DateStart = mlngDateStart 

.DateEnd = mlngDateEnd 

.FullDate = FullDate 

.Year = mlngYear 
End With 

Set lClause_Clone = bcClone 
End Function 

Private Property Set lClause_NextClause (RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause ( ) As IClause 

Set IClause_NextClause = mbcNextClause 
End Property 

Private Property Set IClause_PriorClause (RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set IClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text ( ) As String 

IClause_Text = Text 
End Property 

Private Function lClause_Score ( ) As Single 

Dim sngScoreContext As Single 
Dim sngScorelnternal As Single 
Dim strClauseText As String 
Dim strNextWord As String 
Dim IngYear As Long 




tJ^^^ternal^l^re if the court is spelled correct ^^^^ 
Eno^Bren 
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* -- Award up to 1 point for 
strClauseText = TextO 
If mlngDateStart = mlngDateEn3 

If the date clause is only one word long, then it is either a year or a placeholder. Award points if it is a valid 
' year or a valid (4-6 length) placeholder. 
If IsNumeric (strClauseText) Then 
IngYear = Val (strClauseText ) 

If IngYear > 1600 And IngYear < 2010 Then sngScorelnternal = 1 

Else 

If Len( strClauseText) > 4 And Len (strClauseText) < 7 Then 
sngScorelnternal = 1 

Else 

sngScorelnternal = 0.5 
End If 
End If 

Else 

' — If the date clause is more than one word long, it contains a month and date. Award points if it has a year within 

a valid range. 
IngYear = Val (Format $ (strClauseText , "yyyy")) 
If IngYear > 1600 And IngYear < 2010 Then 

sngScorelnternal = 1 

Else 

sngScorelnternal = 0.5 
End If 
End If 

'-- Award up to .5 points for the context score for the expected preceeding clause and text. 
If Not (mbcPriorClause Is Nothing) Then 

If TypeOf mbcPriorClause Is cClauseCourt Or TypeOf mbcPriorClause Is cClauseJurisdiction Then 
sngScoreContext = sngScoreContext + 0.25 

If mbcPriorClause . ClauseEnd + 1 - mlngDateStart Then sngScoreContext = sngScoreContext + 0.25 
Elself TypeOf mbcPriorClause Is cClauseReporter Then 
sngScoreContext = sngScoreContext + 0.25 

If ActiveDoc .Words (mlngDateStart - 1) - " ( " Then sngScoreContext - sngScoreContext + 0.25 
End If 
End If 

■j-. Award up to .5 points for the context score for the expected subsequent clause and text. 
strNextWord = ActiveDoc .Words (mlngDateEnd + 1) 
ifflmbcNextClause Is Nothing Then 
¥tJ If strNextWord = ") n Then 

■v jj sngScoreContext = sngScoreContext + 0.5 

Elself strNextWord = "," Or strNextWord = ";" Then 
%.J sngScoreContext = sngScoreContext + 0.25 
% ll End If 

f' : * If strNextWord = ")" Then 

* p= sngScoreContext = sngScoreContext + 0.25 

f(\ Elself strNextWord = " f " Or StrNextWord = " ; " Then 
t-I sngScoreContext = sngScoreContext + 0.125 

ill End If 
End If 

H 

Average the internal and context scores, with 40% weight for the internal score and 60% weight for the context score. 
|eiause_Score =0.4 * sngScorelnternal +0.6* sngScoreContext 

End Euhction 

Friend Function Score () As Single 

Score = IClause_Score( ) 
End function 

Pri|ra;te Sub Class_Initialize ( ) 

ClausesCount = ClausesCount + 1 

Debug. Print "Creating clause. Total: " & ClausesCount 
End Sub 

Private Sub Class_Terminate ( ) 

ClausesCount = ClausesCount - 1 

Debug. Print "Terminating clause. Total: " & ClausesCount 



End Sub 
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Option Explicit 
Implements IClause 



a^^^^n. ^^^^ 



Public Jurisdiction As cJurisdiction 



Private mlngJurStart As Long 
Private mlngJurEnd As Long 
Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 
Private mbolExactMatch As Boolean 



Friend Property Let ExactMatch( Source As Boolean) 

mbolExactMatch = Source 
End Property 

Public Property Get JurStartO As Long 

JurStart = mlngJurStart 
End Property 

Friend Property Let JurStart (Source As Long) 

mlngJurStart = Source 
End Property 

Public Property Get JurEndO As Long 

JurEnd = mlngJurEnd 
End Property 

Friend Property Let JurEnd (Source As Long) 

mlngJurEnd = Source 
End Property 

Public Property Get TextO As String 

Text = ActiveDoc. Words (mlngJurStart, mlngJurEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Se_t PriorClause = mbcPriorClause 
End Pgfperty 

Publi^yproperty Get NextClauseO As IClause 

Se^fe NextClause = mbcNextClause 
End Property 

Sj 

Private] Property Get IClause_ClauseEnd( ) As Long 

IClause_ClauseEnd = mlngJurEnd 
End Property 

Private Property Get IClause_ClauseStart ( ) As Long 

Ij(Slause_ClauseStart = mlngJurStart 
End Property 

Private Function IClause_Clone ( ) As IClause 
ffifi bcClone As cClauseJurisdiction 

is: 

Sejb bcClone = New cClauseJurisdiction 
Wi L th bcClone 

3 *"* .JurStart = mlngJurStart 

jj^j .JurEnd = mlngJurEnd 

j* B * Set .Jurisdiction = Jurisdiction 

.ExactMatch = mbolExactMatch 
End With 

Set IClause_Clone = bcClone 



End Function 



Private Property Set IClause_NextClause (RHS As IClause) 

Set mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause ( ) As IClause 

Set IClause_NextClause = mbcNextClause 
End Property 

Private Property Set IClause_PriorClause (RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set IClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get IClause_Text ( ) As String 

IClause_Text = Text 
End Property 

Private Function IClause_Score( ) As Single 



Dim sngScorelnternal As Single 
Dim sngScoreContext As Single 
Dim strNextWord As String 
Dim strPriorWord As String 



' — Award up to 1 point for the internal score if the jurisdiction is spelled correctly. 
If mbolExactMatch = True Then 
sngScorelnternal = 0.75 

If ActiveDoc. Words (mlngJurStart, mlngJurEnd) = Jurisdiction. AbrvName Then sngScorelnternal = sngScorelnternal + 0.25 
End If 
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■ — Award up to .5 points foij^Bk contex^^Rore for the expected preceeding cl^^^Kind 
If Not (mbcPriorClause Is No^^^K Then ^^^B' 

If Not (mlngJurStart - 1 ^^^^PriorClause. ClauseEnd) Then strPriorWord = Ac^rveDoc .Words (mlngJurStart - 1) 
If TypeOf mbcPriorClause Is cClauseReporter Then sngScoreContext = sngScoreContext + 0.25 
Select Case strPriorWord 
Case ■ { " 

sngScoreContext = sngScoreContext + 0.25 
Case ■ , " 

sngScoreContext - sngScoreContext + 0.125 
End Select 
End If 

'-- Award up to .5 points for the context score for the expected subsequent clause and text. 
If Not {mbcNextClause Is Nothing) Then 

If Not (mlngJurEnd + 1 = mbcNextClause .ClauseStart) Then strNextWord = ActiveDoc .Words (mlngJurEnd + 1) 
If TypeOf mbcNextClause Is cClauseCourt Or TypeOf mbcNextClause Is cClauseDate Then 
sngScoreContext = sngScoreContext + 0.2 5 
Select Case strNextWord 
Case " " 

sngScoreContext = sngScoreContext + 0.25 
Case " , " 

sngScoreContext = sngScoreContext + 0.125 
End Select 

Else 

Select Case strNextWord 
Case " ) ■ 

sngScoreContext = sngScoreContext + 0.25 
Case " 

sngScoreContext = sngScoreContext + 0.125 
End Select 
End If 

Else 

If ActiveDoc .Words (mlngJurEnd + 1) = ")" Then sngScoreContext = sngScoreContext + 0.25 
End If 

' — Average the internal and context scores, with 40% weight for the internal score and 60% weight for the context score. 
IClause_Score = 0.4 * sngScorelnternal +0.6 * sngScoreContext 



End Ffujfction 

Frieri^yFunction Score ( ) As Single 

St.qre = IClause_Score ( ) 
End Function 

SI 

Privafe Sub Class_Initialize () 

^ClausesCount = ClausesCount + 1 

n5sbug. Print "Creating clause. Total: " & ClausesCount 

End ^Mb 
#= 

Private Sub Class_Terminate ( ) 

^lausesCount = ClausesCount - 1 

"^Efebug. Print "Terminating clause. Total: " & ClausesCount 

fU 

End^SEub 
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Option Explicit 

Private mcolClausesAtWord{ ) As Collect 
Private mbolPerf ectReporter ( ) As Boole 
Private mbolPerf ectJurisdiction ( ) As B 
Private mbolPerf ectCourt ( ) As Boolean 

Private Const MAXIMUMCLAUSELENGTH As L 

Public Sub Initialize () 

ReDim mcolClausesAtWordd To Ac tiveDoc .Words . Count) 
ReDim mbolPerf ectReporter (1 To Ac tiveDoc .Words .Count) 
ReDim mbolPerf ectJurisdiction (1 To Ac tiveDoc .Words. Count) 
ReDim mbolPerf ectCourt (1 To Ac tiveDoc. Words. Count) 

End Sub 

Public Function ClausesStartingAtWord (WordNumber As Long) As Collection 

Dim IngCheckTo As Long 
Dim IngLastWord As Long 
Dim strPhraseTrim As String 
Dim bcNewClause As IClause 



ion 
an 

oolean 



ong = 12 



If mcolClausesAtWord (WordNumber) Is Nothing Then 

Set mcolClausesAtWord (WordNumber) = New Collection 

If Not (Ac tiveDoc .Words .Underline (WordNumber) = False) Then 
Set bcNewClause = MatchingCaseNameClause (WordNumber) 
If Not (bcNewClause Is Nothing) Then 

mcolClausesAtWord (WordNumber) .Add bcNewClause 
End If 

El self Not ( Ac t i veDoc .Words .WordsTrim (WordNumber) = BU ) Then 

|.l ' — Determine the maximum number of words to check in the phrase. 

IngCheckTo = WordNumber + MAXIMUMCLAUSELENGTH - 1 

If IngCheckTo > Act iveDoc .Words . Count Then IngCheckTo = ActiveDoc . Words . Count 



m 
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' — Iterate from the longest phrase to the shortest phrase. 
For IngLastWord = IngCheckTo To WordNumber Step -1 
s 5 = If Not (Ac tiveDoc. Words. WordsTrim (IngLastWord) = " " ) Then 

hfl strPhraseTrim = ActiveDoc .Words .WordsTrim (WordNumber , IngLastWord) 

- ' — Locate and add the matching reporter clauses, matching jurisdiction clauses and matching court clauses 

til ' only if the first and last words are not numbers. 

if Not ActiveDoc .Words . I sNumber (WordNumber , False) _ 
4h And Not Ac tiveDoc. Words. I sNumber( IngLastWord, False) Then 

B Set bcNewClause = MatchingReporterClause (WordNumber , IngLastWord, strPhraseTrim) 

If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 

f|j Set bcNewClause = MatchingJurisdictionClause (WordNumber , IngLastWord, strPhraseTrim) 

If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 



Set bcNewClause = MatchingCourtClause (WordNumber , IngLastWord, strPhraseTrim) 
If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 



End If 

'-- Add the matching date clause. 

Set bcNewClause = Ma tchingDateClause (WordNumber, IngLastWord, ActiveDoc .Words (WordNumber, IngLastWord)) 
If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 

End If 

Next IngLastWord 

Else 

'-- Add a matching date clause placeholder. 

Set bcNewClause = MatchingDateClausePlaceholder (WordNumber) 

If Not (bcNewClause Is Nothing) Then mcolClausesAtWord (WordNumber) .Add bcNewClause 
End If 
End If 

Set ClausesStartingAtWord = mcolClausesAtWord (WordNumber ) 
End Function 

Private Function MatchingCaseNameClause (Firs tWord As Long) As cClauseCaseName 
Dim i As Long 

If ActiveDoc .Words (FirstWord, FirstWord + 2} = CASENAME_ PLACEHOLDER Then 
Set MatchingCaseNameClause = New cClauseCaseName 
MatchingCaseNameClause. ClauseStart = FirstWord 
MatchingCaseNameClause. ClauseEnd = FirstWord + 2 
Elself Act iveDoc. Words. Underline (FirstWord - 1) = False Then 
Set MatchingCaseNameClause = New cClauseCaseName 
MatchingCaseNameClause. ClauseStart = FirstWord 
For i = FirstWord To ActiveDoc .Words . Count - 1 

If Ac tiveDoc. Words. Under line(i + 1) = False Then 
MatchingCaseNameClause. ClauseEnd = i 
Exit For 
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End Function 

Private Function MatchingReporterClause (FirstWord As Long, LastWord As Long, PhraseTrim As String) As cClauseReporter 

Dim bcReporter As cReporter 
Dim bcClause As IClause 

Dim bcExistingReporterClause As cClauseReporter 
Dim bolExactMatch 



'-- Abort if a correctly-spelled reporter has already been found that overlaps this phrase. 
If ExactMatchFound(mbolPerfectReporter {) , FirstWord, LastWord) Then Exit Function 

'-- Abort if the phrase is "id", since the phrase is mistaken for "Ind." 
If PhraseTrim = "id" Then Exit Function 

'-- Is there a reporter that matches this phrase? 

Set bcReporter = Jurisdictions. AllReporters. Item (PhraseTrim, True, False, True) 
If Not (bcReporter Is Nothing) Then 

ExactMatchFound(mbolPerf ectReporter ( ) , FirstWord, LastWord) = True 

bolExactMatch = True 

Else 

Set bcReporter = Jurisdictions . AllReporters . I tern ( PhraseTrim, False, True, True) 
End If 




If Not (bcReporter Is Nothing) Then 

'-- Abort if there's an existing reporter clause starting at the same word with the same associated reporter. 
For Each bcClause In mcolClausesAtWord (FirstWord) 
If TypeOf bcClause Is cClauseReporter Then 
Set bcExistingReporterClause = bcClause 
If bcExistingReporterClause . Reporter Is bcReporter Then 

If bcExistingReporterClause. ClauseEnd = LastWord + 1 Then 
Exit Function 
Q End If 

End If 
End If 
\\ Next bcClause 

%j '-- Build a new reporter clause. 

Set MatchingReporterClause = New cClauseReporter 
= With MatchingReporterClause 
L = u Set .Reporter = bcReporter 

.AbrvStart = FirstWord 
|[j .AbrvEnd = LastWord 

■ps If ActiveDoc .Words (LastWord + 1) = "." Then .AbrvEnd = LastWord + 1 

.ExactMatch = bolExactMatch 
_ End With 

InS If 

•ssr 

End Function 

Private Function MatchingJurisdictionClause {FirstWord As Long, LastWord As Long, PhraseTrim As String) As cClauseJurisdiction 

Dim bcJurisdiction As cJurisdiction 
fen bcClause As IClause 

p\m bcExistingJurisdictionClause As cClauseJurisdiction 
&f$m bolExactMatch As Boolean 



* — Abort if a correctly-spelled jurisdiction has already been found that overlaps this phrase. 
If ExactMatchFound(mbolPerfectJurisdiction() , FirstWord, LastWord) Then Exit Function 

' — Abort if the phrase is "id", since the phrase is mistaken for "Ind." 
If PhraseTrim = "id" Then Exit Function 

' — Is there a jurisdiction that matches this phrase? 

Set bcJurisdiction = Jurisdictions . ltem(PhraseTrim, True, False, True) 
If Not (bcJurisdiction Is Nothing) Then 

ExactMatchFound{mbolPerf ectJurisdiction ( ) , FirstWord, LastWord) - True 

bolExactMatch = True 

Else 

Set bcJurisdiction = Jurisdictions . Item (PhraseTrim, False, True, True) 
End If 

If Not (bcJurisdiction Is Nothing) Then 

1 — Abort if there's an existing jurisdiction clause starting at the same word with the same associated reporter. 
For Each bcClause In mcolClausesAtWord (FirstWord) 
If TypeOf bcClause Is cClauseJurisdiction Then 
Set bcExistingJurisdictionClause = bcClause 

If bcExistingJurisdictionClause. Jurisdiction Is bcJurisdiction Then Exit Function 
End If 
Next bcClause 

* — Build a new reporter clause. 

Set MatchingJurisdictionClause = New cClauseJurisdiction 
With MatchingJurisdictionClause 

Set .Jurisdiction = bcJurisdiction 

.JurStart = FirstWord 

.JurEnd = LastWord 

If ActiveDoc. Words (LastWord +1) = "." Then .JurEnd = LastWord + 1 
.ExactMatch = bolExactMatch 
End With 
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End If 
End Function 

Private Function MatchingCourtClause (FirstWord As Long, LastWord As Long, PhraseTrim As String) As cClauseCourt 

Dim bcCourt As cCourt 
Dim bcClause As IClause 

Dim bcExistingCourtClause As cClauseCourt 
Dim bolExactMatch As Boolean 



• — Abort if a correctly-spelled jurisdiction has already been found that overlaps this phrase. 
If ExactMatchFound(mbolPerfectCourt() , FirstWord, LastWord) Then Exit Function 

' — Is there a court that matches this phrase? 

Set bcCourt = Jurisdictions. AllCourts. ltem{PhraseTrim, True, False, True) 
If Not (bcCourt Is Nothing) Then 

ExactMatchFound (mbol Per fee tCourt () , FirstWord, LastWord) = True 

bolExactMatch = True 

Else 

Set bcCourt = Jurisdictions .AllCourts . Item( PhraseTrim, False, True, True) 
End If 

If Not (bcCourt Is Nothing) Then 

' -- Abort if there's an existing jurisdiction clause starting at the same word with the same associated report 
For Each bcClause In mcolClausesAtWord (FirstWord) 
If TypeOf bcClause Is cClauseCourt Then 
Set bcExistingCourtClause = bcClause 

If bcExistingCourtClause. Court Is bcCourt Then Exit Function 
End If 
Next bcClause 

Set MatchingCourtClause = New cClauseCourt 
With MatchingCourtClause 

Set .Court = bcCourt 

.CourtStart = FirstWord 

.CourtEnd = LastWord 

If ActiveDoc. Words (LastWord + 1) = " . " Then .CourtEnd = LastWord + 1 
.ExactMatch = bolExactMatch 
Vsl End With 

End If 

End Function 

%? 5 

Private Function MatchingDateClausePlaceholder (WordNumber As Long) As cClauseDate 

I^s ActiveDoc .Words (WordNumber) = " " Then 

Set MatchingDateClausePlaceholder = New cClauseDate 
i£s With MatchingDateClausePlaceholder 
" ? .DateStart = WordNumber 

E . Date End = WordNumber 

End With 
sad if 

End §y|iction 

is;? 

Private Function MatchingDateClause (FirstWord As Long, LastWord As Long, ByVal Phrase As String) As cClauseDate 
IngLastWordVal As Long 

M 

'-- isDate does not interpret a valid date that is missing a space after a period; e.g., "Jan.l, 1980". 
' Force an extra space after each period to compensate. 
Phrase = Replace (Phrase, ". ") 

IngLastWordVal = Val (ActiveDoc .Words (LastWord) ) 
If IngLastWordVal > 1600 And IngLastWordVal < 2010 Then 
If LastWord = FirstWord Then 

Set MatchingDateClause = New cClauseDate 
With MatchingDateClause 

.DateStart = FirstWord 
.DateEnd = LastWord 
.Year = IngLastWordVal 
End With 
Elself IsDate (Phrase) Then 

Set MatchingDateClause = New cClauseDate 
With MatchingDateClause 

.DateStart = FirstWord 
.DateEnd = LastWord 
, FullDate = CDate{ Phrase) 
.Year = CLng (Format (Phrase, "yyyy")) 
End With 
End If 
End If 

End Function 

Private Property Get ExactMatchFound( Perf ectClause ( ) As Boolean, FirstWord As Long, LastWord As Long) As Boolean 
Dim i As Long 



ExactMatchFound = True 
For i = FirstWord To LastWord 

If PerfectClause(i) = False Then 
ExactMatchFound = False 
Exit Property 
End If 




• • •• 
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Next i 
End Property 

Private Property Let ExactMatchFound ( PerfectClause ( ) As Boolean, FirstWord As Long, LastWord As Long, Source As Boolean) 
Dim i As Long 

For i = FirstWord To LastWord 
PerfectClause ( i ) = Source 
Next i 

End Property 



2? 
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Option Explicit 
Implements IClause 

Public IsParenthetical As Boolean 

Private mlngFirstPageLocation As Long 
Private mlngVolumeNumberLocation As Long 
Private mlngPinStart As Long 
Private mlngPinEnd As Long 
Private mbcReporter As cReporter 

Private mlngAbrvStart As Long 
Private mlngAbrvEnd As Long 
Private mbcNextClause As IClause 
Private mbcPriorClause As IClause 

Private mbcEditor As cEditor 

Private mbolExactMatch As Boolean 

Friend Property Let ExactMatch( Source As Boolean) 

mbolExactMatch = Source 
End Property 



Public Property Get PirstPageLocation { ) As Long 

FirstPageLocation = mlngFirstPageLocation 
End Property 

Friend Property Let FirstPageLocation {Source As Long) 

mlngFirstPageLocation = Source 
End Property 

Public Property Get VolumeNumberLocation ( ) As Long 

VolumeNumberLocation = mlngVolumeNumber Location 
End Property 

Frieii&^Property Let VolumeNumberLocation (Source As Long) 

mJfflgVolumeNumberLocation = Source 
End Property 

%J 

Publi„c = Property Get PinStartO As Long 

p'Mstart = mlngPinStart 
End ?£ef>perty 

Frie&dl: Property Let PinStart (Source As Long) 

mlngPinStart = Source 
End |irf>perty 

Publfcr Property Get PinEndO As Long 

ginEnd = mlngPinEnd 
End grpperty 

Friep^ Property Let PinEnd (Source As Long) 

mlngPinEnd ~ Source 
End Property 

Publ^Ld Property Get Reporter () As cReporter 

£ftt Reporter = mbcReporter 
End fe^operty 

. Frie?fd Property Set Reporter (Source As cReporter) 
Set mbcReporter = Source 
End Property 

Public Property Get AbrvStartO As Long 

AbrvStart = mlngAbrvStart 
End Property 

Friend Property Let AbrvStart (Source As Long) 

mlngAbrvStart = Source 
End Property 

Public Property Get AbrvEndO As Long 

AbrvEnd = mlngAbrvEnd 
End Property 

Friend Property Let AbrvEnd ( Source As Long) 

mlngAbrvEnd = Source 
End Property 

Public Property Get EditorClause( ) As cEditor 

Set EditorClause = mbcEditor 
End Property 

Friend Property Set EditorClause (Source As cEditor) 

Set mbcEditor = Source 
End Property 

Public Property Get TextO As String 

Text = Ac tiveDoc .Words (ClauseStart , ClauseEnd) 
End Property 

Public Property Get PriorClause ( ) As IClause 

Set PriorClause = mbcPriorClause 
End Property 

Public Property Get NextClauseO As IClause 
Set NextClause = mbcNextClause 
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Public Function ClauseStart ( ) As Lorn 
If VolumeNumberLocation > 0 Then 

ClauseStart = VolumeNumberLocation 

Else 

ClauseStart = AbrvStart 
End If 
End Function 

Public Function ClauseEndO As Long 
If PinEnd > 0 Then 

ClauseEnd = PinEnd 
Elself FirstPageLocation > 0 Then 

ClauseEnd = FirstPageLocation 
Elself Not {mbcEditor Is Nothing) Then 

ClauseEnd = mbcEditor .ClauseEnd 

Else 

ClauseEnd - mlngAbrvEnd 
End If 
End Function 

Public Function AbrvTextO As String 

AbrvText = Ac tiveDoc. Words (mlngAbrvS tart, mlngAbrvEnd) 
End Function 

Public Function VolumeNumber ( ) As Long 

If ml ng VolumeNumber Location > 0 Then VolumeNumber = Val (Ac tiveDoc . Words (mlngVolumeNumberLocat ion) ) 
End Function 

Public Function FirstPageNumber ( ) As Long 

If mlngFirstPageLocation > 0 Then FirstPageNumber = Val (ActiveDoc .Words (mlngFirstPageLocation) ) 
End Function 



Private Property Get lClause_ClauseEnd ( ) As Long 

ICJLause_ClauseEnd = ClauseEnd 
End Paiperty 

Privacy Property Get IClause_ClauseStart ( ) As Long 

Kyfause_ClauseStart = ClauseStart 
End Property 

\. I 

Priv^t^e Function IClause_Clone { ) As IClause 

DjL.ni bcClone As cClauseReporter 

ST£§ bcClone = New cClauseReporter 
Wi§h bcClone 

4j== .AbrvStart = mlngAbrvS tart 

.AbrvEnd = mlngAbrvEnd 
* Set .Reporter = Reporter 

.ExactMatch = mbolExactMatch 

With 

Set lClause_Clone = bcClone 
End feuhction 

Private Property Set IClause_NextClause (RHS As IClause) 

!|]t mbcNextClause = RHS 
End Property 

Private Property Get IClause_NextClause ( ) As IClause 

Set lClause_NextClause = mbcNextClause 
End Property 

Private Property Set IClause_PriorClause (RHS As IClause) 

Set mbcPriorClause = RHS 
End Property 

Private Property Get IClause_PriorClause ( ) As IClause 

Set IClause_PriorClause = mbcPriorClause 
End Property 

Private Property Get lClause_Text ( } As String 

lClause_Text = Text 
End Property 

Private Function IClause_Score ( ) As Single 

Dim sngScoreContext As Single 
Dim sngScorelnternal As Single 
Dim strNextWord As String 



' — Award up to .2 point for the internal score if the reporter is spelled correctly. 
If mbolExactMatch = True Then 
sngScorelnternal = 0.1 

If ActiveDoc. Words (Me. AbrvStart, Me. AbrvEnd) = Me. Reporter. AbrvName Then sngScorelnternal - sngScorelnternal + 0.1 
End If 

1 -- Award .4 points for the internal score if the reporter has a volume number. 

If ActiveDoc .Words . IsNumber (Me . AbrvStart - 1, True) Then sngScorelnternal = sngScorelnternal + 0.4 

'-- Award .4 points for the internal score if the reporter has a first page number or pinpoint page number. 
If FirstPageLocation > 0 Then 

sngScorelnternal = sngScorelnternal +0.4 
Elself PinStart > 0 Then 

If Ac tiveDoc. Words. WordsTrim (PinStart) = "at" Then 
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sngScorelnternal = sngS< 




,ntei^^p+ 0.4 

Internal + 0.2 




Else 



sngScorelnternal = sngSl 



End If 



End If 



• — Award up to .5 points for the context score for the expected preceeding clause and text. 
If Not (mbcPriorClause Is Nothing) Then 

If TypeOf mbcPriorClause Is cClauseReporter Or TypeOf mbcPriorClause Is cClauseCaseName Then sngScoreContext = sngScoreContext + 0. 



End If 

If ActiveDoc. Words (ClauseStart ( ) - 1) = "," Then sngScoreContext = sngScoreContext + 0.25 

' — Award up to .5 points for the context score for the expected subsequent clause and text. 
If Not (mbcNextClause Is Nothing) Then 

If TypeOf mbcNextClause Is cClauseReporter Or TypeOf mbcNextClause Is cClauseJurisdiction Or TypeOf mbcNextClause Is cClauseCourt 0 
r TypeOf mbcNextClause Is cClauseDate Then sngScoreContext = sngScoreContext + 0.25 
End If 

strNextWord = ActiveDoc . Words (ClauseEndt ) + 1) 

If strNextWord = " , " Or strNextWord = "(" Then sngScoreContext = sngScoreContext + 0.25 

' — Average the internal and context scores, with 60% weight for the internal score and 40% weight for the context score. 
(Greater weight to the internal score than for other clauses because there is more data -- volume numbers and page 
numbers — on which to base the internal score.) 

IClause_Score =0.7 * sngScorelnternal + 0.3 * sngScoreContext 

End Function 

Friend Function Score ( ) As Single 

Score = IClause_Score ( ) 
End Function 

'Private Sub Class_Initialize ( ) 

ClausesCount = ClausesCount + 1 

Debug. Print "Creating clause. Total: " & ClausesCount 



25 



End Siib 



Priv^Tfe Sub Class_Terminate ( ) 



ClausesCount = ClausesCount - 1 

ip^abug. Print "Terminating clause. Total: 



& ClausesCount 



End 2ST|b 
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' — Copyright 2001 by Robert L. Ja^ 

Option Explicit 

Private mcolClauses As Collection 
Private mbcLastClause As iClause 

Private Sub Class_Initialize ( ) 

Set mcolClauses = New Collection 
End Sub 

Public Sub Add {Clause As IClause, Optional Key As Variant) 

IE Not (mbcLastClause Is Nothing) Then 

Set mbcLastClause .NextClause = Clause 
Set Clause . PriorClause = mbcLastClause 

End If 

mcolClauses. Add Clause, Key 
Set mbcLastClause = Clause 

End Sub 

Public Function Count () As Long 

Count = mcolClauses. Count 
End Function 

Public Function Item (Index As Variant) As IClause 

Set Item = mcolClauses . Item(lndex) 
End Function 

Public Function NewEnum ( ) As I Unknown 

Set NewEnum - mcolClauses . [_NewEnum] 
End Function 

Private Sub Class_Terminate ( ) 

Dim bcClause As IClause 

Fjm^ Each bcClause In mcolClauses 

Vsl Set bcClause. NextClause = Nothing 
N|P§t bcClause 

End S%d 
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Private mlngAbrvStart As Long 
Private mlngAbrvEnd As Long 
Private mbcReporter As cReporter 
Private mlngVolumeNumberLocation As Long 
Private mlngVolumeNumber As Long 
Private mlngClauseStart As Long 
Private mlngClauseEnd As Long 
Private mbollnitialized As Boolean 

Public Property Get AbrvStart {) As Long 

AbrvStart = mlngAbrvStart 
End Property 

Friend Property Let AbrvStart (Source As Long) 
mlngAbrvStart = Source 

If mlngAbrvStart > 0 And mlngAbrvEnd > 0 And Not mbollnitialized Then Call Initialize 
End Property 

Public Property Get AbrvEndO As Long 

AbrvEnd - mlngAbrvEnd 
End Property 

Friend Property Let AbrvEnd (Source As Long) 
mlngAbrvEnd - Source 

If mlngAbrvStart > 0 And mlngAbrvEnd > 0 And Not mbollnitialized Then Call Initialize 
End Property 

Public Property Get Reporter () As cReporter 

Set Reporter = mbcReporter 
End Property 

Friend Property Set Reporter (Source As cReporter) 

Set mbcReporter = Source 
End Property 

Public^Property Get VolumeNumberLocation( ) As Long 

Vc^LUmeNumberLocation = mlngVolumeNumberLocation 
End Pr<?©erty 

Public^Eroperty Get VolumeNumber ( ) As Long 

Vo lumeNumber = mlngVolumeNumber 
End Property 

Public^ property Get ClauseStart ( ) As Long 

C]jjauseStart = mlngClauseStart 
End Property 

Publicf Property Get ClauseEndO As Long 

Cl^seEnd = mlngClauseEnd 
End Property 

Public^junction Text ( ) As String 

Te3c€ = ActiveDoc. Words (mlngClauseStart, mlngClauseEnd) 
End Fufiation 

PublidLlfunction AbrvText ( ) As String 

AtgryText = ActiveDoc. Words (mlngAbrvStart, mlngAbrvEnd) 
End Function 



Privatfes-Sub Initialized 

Locate the volume number. 
If Ac t i veDoc. Words. I sNumber( mlngAbrvStart - 1, True) Then 
mlngVolumeNumberLocation = mlngAbrvStart - 1 

mlngVolumeNumber = Val (ActiveDoc .Words (mlngVolumeNumberLocation) ) 
Elself ActiveDoc. Words. WordsTrim(mlngAbrvStart - 1) = And ActiveDoc. Words (mlngAbrvStart - 1) <> ■(" Then 
If Ac tiveDoc. Words. I sNumber( mlngAbrvStart - 2, True) Then 
mlngVolumeNumberLocation = mlngAbrvStart - 2 

mlngVolumeNumber = Val (ActiveDoc .Words (mlngVolumeNumberLocation) ) 
End If 
End If 

' — Locate the clause start. 
mlngClauseStart = mlngAbrvStart 

If mlngVolumeNumberLocation > 0 Then mlngClauseStart = mlngVolumeNumberLocation 
If ActiveDoc .Words (mlngClauseStart - 1) = Then 

mlngClauseStart = mlngClauseStart - 1 
Elself ActiveDoc. Words. WordsTrim (mlngClauseStart - 1) = " " And ActiveDoc . Words (mlngClauseStart - 1) <> ")" Then 

If ActiveDoc. Words (mlngClauseStart - 2) = " ( " Then 
mlngClauseStart = mlngClauseStart - 2 

End If 
End If 

• — Locate the clause end. 
mlngClauseEnd = mlngAbrvEnd 

If ActiveDoc .Words (mlngClauseEnd +1) = u ) " Then 

mlngClauseEnd = mlngClauseEnd + 1 
Elself ActiveDoc. Words. WordsTrim (mlngClauseEnd + 1) = And ActiveDoc .Words (mlngClauseEnd + 1) <> "( M Then 
If ActiveDoc. Words (mlngClauseEnd + 2) = ")" Then 

mlngClauseEnd = mlngClauseEnd + 2 
Elself ActiveDoc. Words (mlngClauseEnd + 1) = Then 

mlngClauseEnd = mlngClauseEnd + 1 
End If 
End If 



End Sub 
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Friend Function EditorScore (MainCL 




Long) As Long 




Dim strWord As String 



strWord = ActiveDoc. Words (mlngClauseEnd) 
If strWord = ")" Then 

EditorScore = EditorScore + 2 
Elself strWord = " , ■ Then 

EditorScore = EditorScore + 1 
End If 

If mlngVolumeNumberLocation > 0 Then 

If mlngVolumeNumberLocation = mlngAbrvStart - 1 Then EditorScore = EditorScore + 2 Else EditorScore = EditorScore + 1 
End If 

If ActiveDoc. Words (mlngClauseStart) = Then 

EditorScore = EditorScore + 2 
Elself ActiveDoc .Words (mlngClauseStart - 1) = " , " Then 

EditorScore = EditorScore + 1 
End If 

If mbcReporter . IsEditorReporter Then EditorScore = EditorScore + 3 

If MainClauseAbrvEnd < mlngClauseStart - 1 Then EditorScore = EditorScore - (mlngClauseStart - MainClauseAbrvEnd) + 1 



End Function 
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Public Function IsDecisionClauseClause (Clause As IClause) As Boolean 

If TypeOf Clause Is cClauseJurisdiction _ 
Or TypeOf Clause Is cClauseCourt _ 

Or TypeOf Clause Is cClauseDate Then IsDecisionClauseClause = True 
End Function 

Public Function ReportersCompatibleWithCourt (Court As cCourt, ReporterClauses As Collection, Optional MatchingYear As Long) As Long 

' — Returns one point for each reporter clause that is compatible with the supplied court. 

Dim bcReporterClause As cClauseReporter 
Dim bcMatchingReporter As cReporter 
Dim IngScore As Long 



'-- If the reporter clause's abbreviation is spelled correctly, then only search for reporters within the court that 
match this abbreviation exactly. Otherwise, search for similar reporters. 

For Each bcReporterClause In ReporterClauses 

If Ac tiveDoc. Words .WordsTrim( bcReporterClause .AbrvStart, bcReporterClause .AbrvEnd) = bcReporterClause . Reporter . AbrvNameTrim Then 
Set bcMatchingReporter = Court . Reporters . Item ( bcReporterClause .AbrvText , True, False) 

Else 

Set bcMatchingReporter = Court . Reporters . Item (bcReporterClause .AbrvText , True, True) 
End If 

If Not (bcMatchingReporter Is Nothing) Then 
IngScore = IngScore + 1 

If MatchingYear > 0 Then If bcMatchingReporter .YearStart <= MatchingYear And MatchingYear <= bcMatchingReporter . YearEnd Then In 
gScore = IngScore + 1 
End If 

NeKt bcReporterClause 

Re^pprtersCompatibleWithCourt = IngScore 
End Fufifction 

Public function JurisdictionCompatibilityWithReporters (ByRef Jurisdiction As cJurisdiction, ByRef ReporterClauses As Collection) As Long 

* s r -" Returns a number indicating the level of compatibility between the jurisdiction and the reporter clauses. (One point for 
each reporter with which the jurisdiction is compatible.) 

Dliif bcReporterClause As cClauseReporter 
Djjm strReporterTextTrim As String 
Di r m bcCourtGroup As cCourtGroup 
Dj.m bcMatchingReporter As cReporter 
Djya IngScore As Long 

pdff Each bcReporterClause In ReporterClauses 

f K ~ strReporterTextTrim = Act iveDoc .Words .WordsTrim (bcReporterClause .AbrvStart, bcReporterClause. AbrvEnd) 
f-'~ For Each bcCourtGroup In Jurisdiction. CourtGroups 

fz± Set bcMatchingReporter = bcCourtGroup. Reporters . Item (strReporterTextTrim, True, True) 

5sl If Not (bcMatchingReporter Is Nothing) Then 

|„L IngScore = IngScore + 1 

= Exit For 

End If 
Next bcCourtGroup 

Next bcReporterClause 

JurisdictionCompatibilityWithReporters = IngScore 
End Function 
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'-- Copyright 2001 by Robert l^^^obson. 
Option Explicit 

Public Property Get Text ( ) As String 
End Property 

Public Property Get ClauseStart ( ) As Long 
End Property 

Public Property Get ClauseEndO As Long 
End Property 

Public Property Get NextClauseO As IClause 
End Property 

Public Property Set NextClause (Source As IClause) 
End Property 

Public Property Get PriorClause( ) As IClause 
End Property 

Public Property Set PriorClause{ Source As IClause) 
End Property 

Public Function Score () As Single 
End Function 

Public Function Clone {) As IClause 
End Function 
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' — Copyright 2001 by Robert L. Jac obs o n . 
Option Explicit 
Public ClausesCount As Long 

Public Const CASENAME_PLACEHOLDER As String 
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' — Copyright 2001 by Robert L. JajA^n. 

Option Explicit ^^^v 

Private mmswLinkedDocument As Word . Document 
Private mbolDocIsHidden As Boolean 
Private mbcWords As cWords 

Public Property Get Text ( ) As String 

Text = Words . Text 
End Property 

Public Property Get RTF ( ) As String 

RTF = mbcWords . TextRTF { 1 , mbcWords . Count) 
End Property 

Public Sub Initialize (Optional MSWordDocument As Word. Document) 

If MSWordDocument Is Nothing Then 

Set mmswLinkedDocument = Word. Documents .Add (Visible : =False) 
mbolDocIsHidden = True 

Else 

Set mmswLinkedDocument = MSWordDocument 
End If 

Set mbcWords = New cWords 

Call mbcWords . Initialize (mmswLinkedDocument) 
End Sub 

Public Property Get Words ( ) As cWords 

Set Words = mbcWords 
End Property 

Public Property Get Range () As Word. Range 

Set Range = mmswLinkedDocument . Range 
End Property 

Public-Property Let FormattedText (Source As Word. Range) 

mij&eWLinkedDocument . Range. Forma ttedText = Source . FormattedText 
Ca^L mbcWords . ResetCache 

End Property 

V ! 

Private! Sub Class_Terminate ( ) 

Cail mbcWords . Teardown 
sWtl mbcWords = Nothing 

ff"mbolDocIsHidden Then mmswLinkedDocument .Close wdDoNot Save Changes 
S^€ mmswLinkedDocument = Nothing 




End sjafe 
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1 — Copyright 2001 by Robert I^^^f obson. 
Option Explicit 
Public Property Get ActiveDocO As cDocument 

Set ActiveDoc = gbcActiveDoc 
End Property 

Public Property Set ActiveDoc < Source As cDocument) 

Set gbcActiveDoc = Source 
End Property 
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'-- Copyright 2001 by Robert L . 




ion. 




Option Explicit ^^^m 
Private mrtfBox As RichTextBox 
Public Property Get TextRTF ( ) As String 

With mrtfBox 

.SelStart = 0 

.SelLength = Len(.Text) 

TextRTF = . SelRTF 
End With 

End Property 

Public Property Let TextRTF (Source As String) 

mrtfBox. TextRTF = Source 
End Property 

Public Property Get Text ( ) As String 

Text = mrtfBox. Text 
End Property 

Public Property Let SelStart (Source As Long) 

mrtfBox. SelStart = Source - 1 
End Property 

Public Property Let SelLength (Source As Long) 

mrtfBox . SelLength = Source 
End Property 

Public Property Let SelColor (Source As Long) 

mrtfBox . SelColor = Source 
End Property 

Public Function StripRTF (Source As String) As String 

Tfix£RTF = Source 
S&dLpRTF = TextRTF 

End Furfbtion 



Private Sub Class_Initialize ( ) 



SgtE mrtfBox = fRichText . rtfBox 



End S&Jg 

Private Sub Class_Terminate ( ) 



m^Cf Box. TextRTF = 
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* — Copyright 2001 by Robert L. Jacol^B 
Option Explicit 

Private mmswDocument As Word. Document 
Private mstrWordCache ( ) As String 
Private mstrWordTrimCache{ ) As String 
Private mlngFirstCharCache ( ) As Long 
Private mlngLastCharCache{ ) As Long 
Private mlngScore ( ) As Long 
Private mstrText As String 
Private mlngCount As Long 
Private mbolCachelnitialized As Boolean 

Friend Sub Initialize (MSWDocument As Word. Document) 

Set mmswDocument = MSWDocument 

mbolCachelnitialized = False 
End Sub 

Friend Sub TeardownO 

Set mmswDocument = Nothing 
End Sub 

Public Property Get Count ( ) As Long 

If Not mbolCachelnitialized Then Call ResetCache 

Count = mlngCount 
End Property 

Public Property Get TextRTF (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As String 

Dim mswRange As Word . Range 

Dim bcRichText As New cRichText 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
'jifielect the text in the word document, then copy it to the clipboard. 
CJiSjpboard . Clear 

slrfc mswRange = Range (FirstWord, LastWord, False, False) 
irfkwRange . Copy 

'^iaste the text into the RTF box, then set the return value to the box's RTF code. 
M£h bcRichText 

Lsb . TextRTF = Clipboard. GetText (vbCFRTF) 
i Jt TextRTF = .TextRTF 
^11 With 

End Property 

Public. Property Let TextRTF (ByVal FirstWord As Long, ByVal LastWord As Long, Source As String) 

aim mswRange As Word. Range 

hlh bcRichText As New cRichText 

S£ LastWord = 0 Then LastWord = FirstWord 

jf. FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
ksi 

£_ : Put the source RTF into the RTF box, then copy the contents of the box to the clipboard. 

Clipboard. Clear 
With bcRichText 

.TextRTF = Source 

Clipboard. SetText .TextRTF, vbCFRTF 
End With 

' Paste the clipboard into the document, then reparse. 

Set mswRange = Range (FirstWord, LastWord, False, False) 
mswRange .Paste 

mbolCachelnitialized = False 
End Property 

Friend Property Get TextO As String 

If Not mbolCachelnitialized Then Call ResetCache 
Text = mstrText 

End Property 

Public Property Get Words (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As String 

Dim IngStart As Long 
Dim IngEnd As Long 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Or LastWord = FirstWord Then 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

Words = mstrWordCache (FirstWord) 

Else 
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ng^Bmt Or LastWord < FirstWord Or LastWord ^^^H^Knt 
tWord) + 1 



If LastWord = 0 Then LastWor d, ^^^^^^ 

If FirstWord < 1 Or FirstWori^^Mng^Pffit Or LastWord < FirstWord Or LastWord ^^^H^Kmt Then Exit Property 



IngStart = mlngFirstCharCache 
IngEnd = mlngLastCharCache (LastWord) + 1 
Words = Mid$ (mstrText , IngStart, IngEnd - IngStart) 

End If 

End Property 

Public Property Let Words (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal NewText As String) 
Dim mswRange As Word. Range 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Set mswRange - Range (FirstWord, LastWord, True, True) 
If Not (Trim$ (NewText) = "") Then 
NewText = Trim$ (NewText) 

If ShouldContainSpace (NewText , Words (LastWord + 1)) Then NewText = NewText & " " 

If ShouldContainSpace (Words (FirstWord - 1), NewText) = True Then NewText = " " & NewText 

End If 

mswRange = NewText 
mbolCachelnitialized = False 

End Property 

Public Property Get FormattedWords (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Word. Range 
If Not mbolCachelnitialized Then Call ResetCache 
IiJLastWord = 0 Then LastWord = FirstWord 

I|?f irstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
SfcjJ FormattedWords = Range (FirstWord, LastWord) . Format tedText 
End pl\berty 

Publi^t: ^property Let FormattedWords (ByVal FirstWord As Long, Optional ByVal LastWord As Long, _ 
ByVali^ormat tedText As Word. Range) 

Dim mswRange As Word. Range 

IX Not mbolCachelnitialized Then Call ResetCache 
ffj LastWord = 0 Then LastWord = FirstWord 

$l\ FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 

£fi^ ShouldContainSpace (FormattedText , Words (LastWord + 1)) Then FormattedText = FormattedText & ° " 

Its'! 

tfL FirstWord > 1 Then 

^ a Set mswRange = mmswDocument . Range (mlngLastCharCache (FirstWord - 1) - 1, mlngFirstCharCache (LastWord + 1) - 1) 
hji If ShouldContainSpace (Words (FirstWord - 1), FormattedText) - True Then FormattedText = " " & FormattedText 
El>e 

¥*~ Set mswRange = mmswDocument . Range (mlngFirstCharCache (FirstWord) - 1, mlngFirstCharCache (LastWord +1) - 1) 
End If 

mswRange . FormattedText = FormattedText 
mbolCachelnitialized = False 

End Property 

Public Property Get WordsTrim( ByVal FirstWord As Long, Optional ByVal LastWord As Long) As String 
Dim i As Long 



If Not mbolCachelnitialized Then Call ResetCache 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

If LastWord = 0 Or LastWord = FirstWord Then 

WordsTrim = mstrWordTrimCache (FirstWord) 

Else 

If LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
If mstrWordTrimCache (FirstWord) = "" Then Exit Property 

For i = FirstWord To LastWord 

WordsTrim = WordsTrim & mstrWordTrimCache (i) 
Next i 

End If 

End Property 

Public Function Is Placeholder (ByVal WordNumber As Long) As Boolean 
Dim strWord 

Dim strFirstChar As String * 1 
Dim i As Long 
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If Not mbolCachelnitialized I^^^Vall ResetCache 
If WordNumber < 1 Or WordNumbe^^mlngCount Then Exit Function 

strWord = mstrWordCache (WordNumber) 




If Len( strWord) = 1 Then 



If strWord = Then 

IsPlaceholder = True 
Exit Function 

End If 



Else 



strFirstChar = Left$ {strWord, 1) 

If strFirstChar = "_" 

Or strFirstChar = "-" _ 

Or strFirstChar - "x" 

Or strFirstChar - "X" Then 



IsPlaceholder = True 

For i = 2 To Len( strWord) 

If Mid$ (strWord, i, 1) <> strFirstChar Then 
IsPlaceholder = False 
Exit Function 
End If 
Next i 



End If 
End If 



End Function 



Public Function IsNumber (ByVal WordNumber As Long, ByVal IncludePlaceholders As Boolean) As Boolean 



IjL.Not mbolCachelnitialized Then Call ResetCache 

fOc WordNumber < 1 Or WordNumber > mlngCount Then Exit Function 

r^MlsNumeric (mstrWordCache (WordNumber) ) Then 
\\ IsNumber = True 

El Self IncludePlaceholders = True Then 
\j If IsPlaceholder (WordNumber) Then IsNumber = True 
E;i?4 If 

End function 

Publ^fSi Property Get Firs tChar (ByVal WordNumber As Long) As Long 

3f=Not mbolCachelnitialized Then Call ResetCache 

if WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

^lrstChar = mlngFirstCharCache (WordNumber ) 

End jFtJbperty 

is: 

Public? Property Get Last Char (ByVal WordNumber As Long) 

Jf, Not mbolCachelnitialized Then Call ResetCache 

fjf WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

ESstChar = mlngLastCharCache (WordNumber ) 



End Property 



Public Property Get SpacesAf terWord( WordNumber As Long) As Long 

If Not mbolCachelnitialized Then Call ResetCache 

If WordNumber < 1 Or WordNumber >= mlngCount Then Exit Property 

SpacesAf terWord = mlngFirstCharCache (WordNumber + 1) - mlngLastCharCache (WordNumber) 
End Property 

Public Property Get PriorFullWord (ByVal WordNumber As Long) As Long 



Dim i As Long 



If Not mbolCachelnitialized Then Call ResetCache 

If WordNumber < 1 Or WordNumber > mlngCount Then Exit Property 

For i = WordNumber - 1 To 1 Step -1 

If mstrWordTrimCache (i) <> "" Then 
PriorFullWord = i 
Exit Property 
Elself IsPlaceholder (i) Then 
PriorFullWord = i 
Exit Property 
End If 
Next i 

End Property 

Public Property Get NextFullWord( ByVal WordNumber As Long) As Long 
Dim i As Long 
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If Not mbolCachelnitialized Then J^^^R^^Kache 

If WordNumber < 1 Or WordNumber Then Exit Property 




For i = WordNumber + 1 To mlngCount 

If mstrWordTrimCache ( i) <> "" Then 
NextFullWord = i 
Exit Property 
Elself isPlaceholder ( i) Then 
NextFullWord = i 
Exit Property 
End If 
Next i 

NextFullWord = mlngCount + 1 
End Property 

Public Property Get Bold(ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Bold = Range (FirstWord, LastWord) .Bold 
End Property 

Public Property Let Bold(ByVal FirstWord As Long, Optional ByVal LastWord As Long, Bold As Variant) 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Range {FirstWord, LastWord) . Bold = Bold 
End Property 

Public Property Get Highlight {ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 
E&af mswFont As Word. Font 



I^jNot mbolCachelnitialized Then Call ResetCache 
I| : =LastWord = 0 Then LastWord = FirstWord 

IfMFirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 

mswFont = Range {FirstWord, LastWord) .Font 

£^ mswFont .Color = wdColorRed Then 
Ml Highlight = True 

Eiself mswFont . Color = wdColorAutomatic Then 

Highlight = False 
End If 

End ^rpperty 

Publife? Property Let Highlight (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal Highlight As Variant) 
Mm mswFont As Word. Font 

5^ Not mbolCachelnitialized Then Call ResetCache 
|_ LastWord = 0 Then LastWord = FirstWord 

T FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Set mswFont = Range (FirstWord, LastWord) . Font 

If Highlight = True Then 

mswFont. Color = wdColorRed 
Elself Highlight = False Then 

mswFont. Color = wdColorAutomatic 
End If 

End Property 

Public Property Get Italic (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Italic = Range {FirstWord, LastWord) . Italic 
End Property 

Public Property Let Italic (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal Italic As Variant) 

If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Range (FirstWord, LastWord) . Italic = Italic 
End Property 

Public Property Get Underline (ByVal FirstWord As Long, Optional ByVal LastWord As Long) As Variant 

If Not mbolCachelnitialized Then Call ResetCache 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

If LastWord > 0 Then If LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
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Underline - Range (Firs tWc^^^LastWord) .^^^rline ^fl^ A 
End Property ^^0^ ^^^^ 

Public Property Let Underline (ByVal FirstWord As Long, Optional ByVal LastWord As Long, ByVal Underline As Variant) 



If Not rabolCachelnitialized Then Call ResetCache 

If FirstWord < 1 Or FirstWord > mlngCount Then Exit Property 

If LastWord > 0 Then If LastWord < FirstWord Or LastWord > mlngCount Then Exit Property 
Range (FirstWord, LastWord) .Underline = Underline 
End Property 

Public Sub Delete (ByVal FirstWord As Long, Optional ByVal LastWord As Long) 

Dim bolInsertSpace As Boolean 
Dim mswRange As Range 



If Not mbolCachelnitialized Then Call ResetCache 
If FirstWord < 1 Or FirstWord > mlngCount Then Exit Sub 

If LastWord > 0 Then If LastWord < FirstWord Or LastWord > mlngCount Then Exit Sub 

If ShouldContainSpace (Words (FirstWord - 1), Words (LastWord + 1)) = True Then bolInsertSpace = True 

Set mswRange = Range (FirstWord, LastWord, True, True) 
If bolInsertSpace = True Then 
mswRange .' Text = " " 

Else 

mswRange . Delete 
End If 

mbolCachelnitialized = False 
End Sub 

Public Sub Insert (ByVal InsertBef oreWord As Long, ByVal TextToInsert As Variant) 
DijJ mswRange As Word. Range 

ftjNot mbolCachelnitialized Then Call ResetCache 

If 7 InsertBef oreWord < 1 Or InsertBef oreWord > mlngCount + 1 Then Exit Sub 
InsertBef oreWord = 1 Then 

= Set mswRange = mmswDocument .Range (Start : =0 , End:=0) 
&Lself InsertBef oreWord = mlngCount + 1 Then 

s Amm Set mswRange = mmswDocument . Range (mlngLastCharCache (InsertBef oreWord 
^0 mswRange. Collapse 
Else 

*f s Set mswRange = mmswDocument . Range (mlngLastCharCache (InsertBef oreWord 
End If 

|f]Not Trim (TextToInsert) = Then 
d f" s TextToInsert = Trim (TextToInsert) 
|!i If ShouldContainSpace (Words (InsertBef oreWord - 1), TextToInsert) = True Then TextToInsert = " " & TextToInsert 
;t=i If ShouldContainSpace (TextToInsert , Words (InsertBef oreWord) ) Then TextToInsert = TextToInsert & " " 
Bad If 

Jf TypeOf TextToInsert Is Range Then 

= mswRange. Forma ttedText = TextToInsert 

glse 

f K * mswRange = TextToInsert 
End If 

mbolCachelnitialized = False 
End Sub 

Public Function Range (ByVal FirstWord As Long, Optional ByVal LastWord As Long, _ 

Optional ByVal IncludeLeadingSpaces As Boolean = False, Optional ByVal IncludeTrailingSpace As Boolean = False) 
As Word. Range 

Dim IngStartChar As Long 
Dim IngEndChar As Long 



- 1) +1, mlngLastCharCache ( InsertBef oreWord - 1) + 1) 

- 1), mlngFirstCharCache (InsertBef oreWord) ) 



If Not mbolCachelnitialized Then Call ResetCache 
If LastWord = 0 Then LastWord = FirstWord 

If FirstWord < 1 Or FirstWord > mlngCount Or LastWord < FirstWord Or LastWord > mlngCount Then Exit Function 

If IncludeLeadingSpaces = True And FirstWord > 1 Then 
IngStartChar = mlngLastCharCache (FirstWord - 1) 

Else 

IngStartChar = mlngFirstCharCache (FirstWord) 
End If 

If IncludeTrailingSpace = True And LastWord < mlngCount Then 
IngEndChar = mlngFirstCharCache (LastWord + 1) 

Else 

IngEndChar = mlngLastCharCache (LastWord) 
End If 

Set Range = mmswDocument . Range ( IngStartChar , IngEndChar) 
End Function 

Private Function ShouldContainSpace (ByVal FirstPhrase As Variant, ByVal SecondPhrase As Variant) As Boolean 



Dim strNextChar As String * 1 
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Dim strLastChar As String * 1 




If Not mbolCachelnitialized Then Call ResetCache 
FirstPhrase = Trim$ (FirstPhrase) 
SecondPhrase = Trim$ (SecondPhrase) 

If FirstPhrase = " " Or SecondPhrase = " " Then 
ShouldContainSpace = False 

Else 

strLastChar = Right$ (FirstPhrase, 1) 
strNextChar = Left$ (SecondPhrase, 1) 

If strLastChar <> _ 



And 


strLastChar 


<> 






And 


strNextChar 


<> 


") " 




And 


strNextChar 


<> 


"]" 




And 


strNextChar 


<> 






And 


strNextChar 


<> 






And 


strNextChar 


<> 






And 


strNextChar 


<> 






And 


strNextChar 


<> 


■1 1 i< 


Then 




ShouldContainSpace 


= True 


End 


If 









End If 

End Function 

Friend Sub ResetCache ( ) 

If mmswDocument . Range <> mstrText Then 

mlngCount = mmswDocument . Characters . Count 
ReDim mstrWordCached To mlngCount) 
ReDim mstrWordTrimCache { 1 To mlngCount) 
ReDim mlngFirstCharCache (1 To mlngCount) 
ReDim mlngLastCharCache ( 1 To mlngCount) 
mstrText = mmswDocument . Range 
&tt Call CacheWords 

%m if 

mlrolCachelnitialized = True 
End Sub 

PrivajtlFe Sub CacheWords () 

Bim i As Long 
4im IngChar As Long 
l|£m IngNextChar As Long 
Dim IngWordNumber As Long 
tffm strChar As String * 1 
Qim strNextChar As String * 1 
Qim bolStopWord As Boolean 
Sjijh IngCharType As Long 
Bj.m IngNextCharType As Long 

pifei IngTextLength As Long 
biin. strWord As String 

gonst ALPHANUMERIC As Long = 1 

5$ihst STOPPUNCTUATION As Long = 2 

onst CONTINUEPUNCTUATION As Long = 3 

ohst SPACE As Long = 4 



IngWordNumber = 1 
IngTextLength = Len (mstrText) 

strNextChar = Mid$ (mstrText , 1, 1) 
IngNextChar = Asc ( strNextChar ) 
Select Case IngNextChar 

Case 48 To 57, 65 To 90, 97 To 122, 192 To 246, 248 To 255 ' Letters, including foreign letters. 

IngNextCharType = ALPHANUMERIC 
Case 45, 95 ' Underscore or hyphen 

IngNextCharType = CONTINUEPUNCTUATION 
Case 32 

IngNextCharType = SPACE 
Case Else 

IngNextCharType = STOPPUNCTUATION 
End Select 

For i = 1 To IngTextLength 

strChar = strNextChar 
IngChar = IngNextChar 
IngCharType = IngNextCharType 

strNextChar = Mid$ (mstrText , i + 1, 1) 
IngNextChar = Asc (strNextChar) 
Select Case IngNextChar 

Case 48 To 57, 65 To 90, 97 To 122, 192 To 246, 248 To 255 ' Letters, including foreign letters. 

IngNextCharType = ALPHANUMERIC 
Case 45, 95 ' Underscore or hyphen 

IngNextCharType = CONTINUEPUNCTUATION 
Case 32 

IngNextCharType = SPACE 
Case Else 

IngNextCharType = STOPPUNCTUATION 
End Select 
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Select Case IngCharType ^^^^ 
Case ALPHANUMERIC 

strWord = strWor^^^WtrChar 

' — If this character is alphanumeric, then continue the word if the" next character is also alphanuemric . 
If IngNextCharType = ALPHANUMERIC Then 
bolStopWord = False 

Else 

bolStopWord = True 
End If 

Case CONTINUEPUNCTUATION 

strWord = strWord fc strChar 

' — If this character is a "continue punctuation" (a hyphen or an underscore), then continue the word if the next 

character is identical to this character. 
If IngNextChar = IngChar Then 

bolStopWord = False 

Else 

bolStopWord = True 
End If 
Case STOPPUNCTUATION 

'-- If this character is a "stop punctuation" (any other type of punctuation), then stop the word. 
strWord = strWord & strChar 
bolStopWord = True 
' — If this character is a space, do nothing. 
End Select 

If bolStopWord = True Or i = IngTextLength Then 
mstrWordCache (IngWordNumber) = strWord 

If IngCharType = ALPHANUMERIC Then mstrWordTrimC ache (IngWordNumber) = LCase$ (strWord) 

ml ngLast Char Cache (IngWordNumber) = i 

mlngFirstChar Cache (IngWordNumber) = i - Len( strWord) 

IngWordNumber - IngWordNumber + 1 

bolStopWord = False 

strWord = 

End If 

Next i 

nfjllgCount = IngWordNumber - 1 
ReJ^im Preserve mstrWordCache (1 To mlngCount) 
R«Sim Preserve mstrWordTrimCache ( 1 To mlngCount) 
ReJ|iin Preserve mlngFirstCharCache ( 1 To mlngCount) 
ReBim Preserve mlngLas tChar Cache ( 1 To mlngCount) 

Si 

End Su§ 

k? = 

Public L Sub ScoreResetO 

ReBim mlngScore (1 To mlngCount) 
End |fb 

Publiies Property Get Score (WordNumber As Long) As Long 

If WordNumber > 0 And WordNumber <- mlngCount Then Score = mlngSc ore (WordNumber ) 
End Property 

Publ|c; Property Let Score (WordNumber As Long, Source As Long) 

f || WordNumber > 0 And WordNumber <- mlngCount Then mlngScore (WordNumber ) = Source 
End Ifpperty 

Publics, Function ScoreBest (Optional MinimumScore As Long) As Long 
ffiici i As Long 

prim IngHighest Score As Long 

IngHighestScore = MinimumScore - 1 
For i = 1 To mlngCount 

If mlngScore (i) > IngHighestScore Then 
IngHighestScore = mlngScored) 
ScoreBest = i 
End If 
Next i 




End Function 
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• — Copyright 2001 by Robert L. Jacolj 
Option Explicit 
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'-- Copyright 2001 by Robert L. Jac 
Option Explicit 

Public gbcActiveDoc As cDocument 
Public ClausesCount As Long 
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Option Explicit * 
Private Const SPACE As Long =32 
Public Function SuperTrim(ByVal Source As String) As String 
Dim i As Long 

Dim strCharacter As String * 1 
Dim strTrimmedString As String 
Dim IngAscCharacter As Long 

Source = LCase (Source) 
For i = 1 To Len{ Source) 

strCharacter = Mid$( Source, i, 1) 

IngAscCharacter = Asc (strCharacter) 

If (IngAscCharacter >= 48 And IngAscCharacter <= 57) _ 

Or (IngAscCharacter >= 97 And IngAscCharacter <- 122) _ 
Or (IngAscCharacter >= 192 And IngAscCharacter <= 246) _ 
Or (IngAscCharacter >= 248 And IngAscCharacter <= 255) _ 
Then strTrimmedString = strTrimmedString & strCharacter 

If IngAscCharacter = 38 Then strTrimmedString = strTrimmedString & "and" 

Next i 

SuperTrim = strTrimmedString 
End Function 

Public Function ExistsInCollection {Item As Variant, Collection As Collection) As Boolean 
Dim varltem As Variant 



For Each varltem In Collection 

If Item = varltem Then 
L:l ExistsInCollection = True 
.j~ Exit Function 
End If 
tfext varltem 

End Function 

Publrc 5 E Function AddArticle (Source As String) As String 

Returns a string containing the original string, preceeded with its correct indefinite article ("a" or "an" 

%M 

Dim strChar As String 

ftrChar = LCase (Left$ (Source, 1)) 
felect Case strChar 
s5£z Case "a", "e", "i", "o", "u" 
l\$ AddArticle = "an " & Source 

f*% Case Else 

f = " AddArticle = "a " & Source 

fend Select 

End Suhction 

M 
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Copyright 2001 by Robert L. Jacob^^^ ^^^j^B 

Option Explicit ^^^F ^^^F 

Private Declare Function timeGetTime Lib "winmm.dll" () As Long 

Private mlngStartTimer As Long 
Private mstrldentif ier As String 
Private mlngRepetitions As Long 

Public Sub StartTimer (Repetitions As Long, Optional ByVal Identifier As String) 

mlngRepetitions = Repetitions 
mstrldentif ier = Identifier 
Debug. Print vbCrLf & "Starting timer...." 
mlngStartTimer = timeGetTime 

End Sub 

Public Sub EndTimerO 

Dim sngEndTimer As Long 
Dim sngSeconds As Single 
Dim sngLengthPerRep As Single 
Dim dbRepsPerSec As Single 



sngEndTimer = timeGetTime 

sngSeconds = (sngEndTimer - mlngStartTimer) / 1000 
sngLengthPerRep = sngSeconds / mlngRepetitions 

Debug. Print "Ending timer...." & vbCrLf 

If mstrldentif ier <> " n Then Debug. Print "Identifier: " & mstrldentif ier 
Debug. Print "Elapsed seconds: " & sngSeconds 

If sngLengthPerRep > 0 Then 

dbRepsPerSec = Round (mlngRepetitions / sngSeconds, 1) 

If sngLengthPerRep > 1 Then 
ItZJ sngLengthPerRep = Round (sngLengthPerRep, 2) 

:=i Debug. Print "Length per repetition: " & sngLengthPerRep & " seconds" 

Debug. Print "Repetitions per second: " & dbRepsPerSec 
\.l MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: " & sngSeconds & vbCrLf & vbCrLf & "Length per r 
epetit'fon: " & sngLengthPerRep & " seconds" & vbCrLf & vbCrLf & "Repetitions per second: " & dbRepsPerSec, vblnformation, "Timer result." 
%j- Elself sngLengthPerRep > 0.001 Then 

« -~ sngLengthPerRep = Round (sngLengthPerRep, 4) * 1000 

IP jj Debug. Print "Length per repetition: " & sngLengthPerRep & " miliseconds . " 

jj^ Debug. Print "Repetitions per second: " & dbRepsPerSec 

- ~ MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: " & sngSeconds & vbCrLf & vbCrLf & "Length per r 
epet^j|on: " & sngLengthPerRep & " miliseconds" & vbCrLf & vbCrLf & "Repetitions per second: " & dbRepsPerSec, vblnformation, "Timer result 

Elself sngSeconds <> 0 Then 

sngLengthPerRep = Round (sngLengthPerRep, 7) * 1000000 
5 Debug. Print "Length per repetition: " & sngLengthPerRep & " microseconds." 

i z \ Debug. Print "Repetitions per second: " & dbRepsPerSec 

MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: " & sngSeconds & vbCrLf & vbCrLf & "Length per r 
epetf&ion: " & sngLengthPerRep & " microseconds" & vbCrLf & vbCrLf & "Repetitions per second: " & dbRepsPerSec, vblnformation, "Timer resul 

t." i;: 

% a f End If 

ku 

f s \ Debug. Print "Length per repetition: N/A. " 
j** r Debug. Print "Repetitions per second: N/A." 

MsgBox "Repetitions: " & mlngRepetitions & vbCrLf & vbCrLf & "Elapsed seconds: Less than one" & vbCrLf & vbCrLf & "Length per repet 
ition: N/A" & vbCrLf & vbCrLf & "Repetitions per second: N/A", vblnformation, "Timer result." 
End If 



End Sub 
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' — Copyright 2001 by Robert L 

Option Explicit 

Private mstrFullName As String 

Private mstrAbrvName As String 

Private mstrFullNameTrim As String 

Private mstrAbrvNameTrim As String 

Private mlngYearStart As Long 

Private mlngYearEnd As Long 

Private mbcParent As cJurisdiction 

Private mbolJurisdictionlmplicit As Boolean 

Private mbcCourtGroup As cCourtGroup 

Public Score As Long 



'Private Sub Class_Initialize ( ) 

' ObjectsCount = ObjectsCount + 1 

Debug. Print "Court created. Total: " & ObjectsCount 

'End Sub 

'Private Sub Class_Terminate { ) 

' ObjectsCount = ObjectsCount - 1 

Debug. Print "Court destroyed. Total: " & ObjectsCount 

■End Sub 

Public Property Get FullNameO As String 

FullName = mstrFullName 
End Property 

Friend Property Let FullName (By Val Source As String) 

mstrFullName = Source 

mstrFullNameTrim = SuperTrim( Source) 
End Pr_qperty 

Publi&iProperty Get AbrvNameO As String 

A%yvName = mstrAbrvName 
End Property 

FrienfcjProperty Let AbrvName< ByVal Source As String) 

msfrAbrvName - Source 

ryfrAbrvNameTrim = SuperTrim( Source) 
End property 

Publ^? = Property Get FullNameTrim( ) As String 

FiiilNameTrim = mstrFullNameTrim 
End Peeper ty 

Public Property Get AbrvNameTrim{ ) As String 

JSjBrvNameTrim = mstrAbrvNameTrim 
End ^fbperty 

Public^ Property Get YearStartO As Long 

tefcrStart = mlngYearStart 
End property 

FrieiSl Property Let YearStart (ByVal Source As Long) 

MlngYearStart = Source 
End IMoperty 

Public Property Get YearEndO As Long 

YearEnd = mlngYearEnd 
End Property 

Friend Property Let YearEnd (ByVal Source As Long) 

mlngYearEnd = Source 
End Property 

Public Property Get Parent () As cJurisdiction 

Set Parent = mbcParent 
End Property 

Friend Property Set Parent (Source As cJurisdiction) 

Set mbcParent = Source 
End Property 

Public Property Get Jurisdictionlmplicit ( ) As Boolean 

Jurisdictionlmplicit = mbolJurisdictionlmplicit 
End Property 

Friend Property Let Jurisdictionlmplicit (ByVal Source As Boolean) 

mbolJurisdictionlmplicit = Source 
End Property 

Public Function Implicit Jurisdiction ( ) As cJurisdiction 

If mbolJurisdictionlmplicit Then 

Set Implicit Jurisdiction = Me. Parent 

End If 
End Function 



Friend Property Set CourtGroupt Source As cCourtGroup) 

Set mbcCourtGroup = Source 
End Property 

Public Property Get CourtGroupO As cCourtGroup 



. Jacol 
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Set CourtGroup = mbcCourtGroup 
End Property 

Public Function Reporters { ) As cReporters 

Set Reporters = mbcCourtGroup. Reporters 
End Function 

Public Function ParallelReporters ( ) As Collection 

Set ParallelReporters = mbcCourtGroup. ParallelReporters 
End Function 

Public Function NonParallelReporters < ) As Collection 

Set NonParallelReporters = mbcCourtGroup. NonParallelReporters 
End Function 
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1 — Copyright 2001 by Robert L. Jaco 
Option Explicit 

Private mbcReporters As cReporters 
Private mcolParallelReporters As Collection 
Private mcolNonParallelReporters As Collection 
Private mbcParent As cJurisdiction 

Private mstrFullName As String 

Private Sub Class_Initialize ( ) 

Set mbcReporters = New cReporters 

Set mcolParallelReporters = New Collection 

Set mcolNonParallelReporters = New Collection 

ObjectsCount = ObjectsCount + 1 

Debug. Print "Court Group created. Total: " & ObjectsCount 
End Sub 

'Private Sub Class_Terminate { ) 

' ObjectsCount = ObjectsCount - 1 

Debug. Print "Court Group destroyed. Total: " & ObjectsCount 

•End Sub 

Public Property Get Reporters () As cReporters 

Set Reporters = mbcReporters 
End Property 

Friend Property Set Reporters (Source As cReporters) 

Set mbcReporters = Source 
End Property 

Public Property Get ParallelReporters ( ) As Collection 

Se£ ParallelReporters = mcolParallelReporters 
End Property 

FrieneMproperty Set ParallelReporters (Source As Collection) 

S^.tjj mcolParallelReporters = Source 
End property 

Public=Property Get NonParallelReporters ( ) As Collection 

SStt NonParallelReporters = mcolNonParallelReporters 
End 5r_Qperty 

FrierffnProperty Set NonParallelReporters (Source As Collection) 

Sfef mcolNonParallelReporters = Source 
End Property 

Publfc Property Get Parent ( ) As cJurisdiction 

gfet Parent = mbcParent 
End §f$perty 

ru 

Frieiyd^ Property Set Parent (Source As cJurisdiction) 

Set mbcParent = Source 
End property 

is- 

Public Property Get FullNameO As String 

J*a : llName = mstrFullName 
End Property 

Friend Property Let FullName (ByVal Source As String) 

mstrFullName = Source 
End Property 
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'-- Copyright 2001 by Robert L. J< 
Option Explicit 




Private mcolCourts As Collection 

Private mbcFuzzyCollection As cFuzzyCollection 

Friend Property Get FuzzyCollection( ) As cFuzzyCollection 

Set FuzzyCol lection = mbcFuzzyCollection 
End Property 

Private Sub Class_Initialize ( ) 

Set mcolCourts = New Collection 

Set mbcFuzzyCollection = New cFuzzyCollection 

End Sub 

Public Sub ScoreResetO 

Dim bcCourt As cCourt 

For Each bcCourt In mcolCourts 

bcCourt . Score = 0 
Next bcCourt 

End Sub 

Public Function ScoreBestO As cCourt 

Dim bcCourt As cCourt 
Dim IngBestScore As Long 

For Each bcCourt In mcolCourts 

If bcCourt . Score > IngBestScore Then 
Set ScoreBest = bcCourt 
IngBestScore = bcCourt . Score 
End If 
Nex.t bcCourt 

End Function 

Public =Function ScoresBest (Optional MinimumScore As Long, Optional Deviance As Long) As Collection 

Dibra bcCourt As cCourt 
Qini IngBestScore As Long 
iMra IngMinimum As Long 

F?|| Each bcCourt In mcolCourts 

Tsa If bcCourt . Score > IngBestScore Then IngBestScore = bcCourt . Score 
N?£xt bcCourt 

fngMinimum = IngBestScore - Deviance 

MinimumScore > 0 And IngMinimum < MinimumScore Then IngMinimum = MinimumScore 

•spr 
s*i = 

Set ScoresBest = New Collection 
IngBestScore >= IngMinimum Then 
For Each bcCourt In mcolCourts 
^ If bcCourt .Score >= IngMinimum Then ScoresBest .Add bcCourt 

: ~ Next bcCourt 

End Pakction 

Friend Sub Add (Court As cCourt, Aliases As Variant) 

Dim varAlias As Variant 
Dim strAliasTrim As String 



With Court 

mcolCourts .Add Court 

mbcFuzzyCollection. Add Court, . AbrvNameTrim 

If .AbrvNameTrim <> . FullNameTrim Then mbcFuzzyCollection .Add Court, . FullNameTrim 
End With 

For Each varAlias In Aliases 

strAliasTrim = CStr (varAlias) 1 — Aliases should be supplied as trimmed. 

If Not (varAlias = SuperTrim (strAliasTrim) ) Then Stop ' — For debugging only. Delete later. 

mbcFuzzyCollection. Add Court, strAliasTrim 
Next varAlias 

End Sub 

Public Function Item (Key As String, MatchExactAlias As Boolean, MatchSimilarAlias As Boolean, Optional YearToMatch As Long, Optional KeylsT 
rimmed As Boolean = False) As cCourt 

Dim strKeyTrim As String 

Dim bcCourt As cCourt 

Dim colMatches As Collection 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = SuperTrim (Key) 
End If 



If MatchExactAlias = False And MatchSimilarAlias = False Then 
Set colMatches = New Collection 
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For Each bcCourt In mcolCo u, 

If strKeyTrim = bcCour^^^^Name'^^F Then colMatches . Add bcCourt 
Next bcCourt 

Else 

Set colMatches = mbcFuzzyCol lect ion. ExactI terns {strKeyTrim) 

If MatchSimilarAlias = True Then If colMatches .Count = 0 Then Set colMatches = mbcFuzzyCol lection. Similarl terns { strKeyTrim) 
End If 

If colMatches. Count > 0 Then 

' — Assume that the first match is correct. 
Set Item = colMatches ( 1) 

• — If there are multiple matches and a year to match is suppplied, then search for a matching court with the 

correct year. 
If colMatches. Count > 1 And YearToMatch > 0 Then 
For Each bcCourt In colMatches 

If bcCourt. Year Start <= YearToMatch And bcCourt . YearEnd >= YearToMatch Then 
Set Item = bcCourt 
Exit For 
End If 
Next bcCourt 
End If 
End If 

End Function 

Public Function Items {Key As String, MatchSimilarFuzzyCollection As Boolean, Optional KeylsTrimmed As Boolean = False) As Collection 

Dim strKeyTrim As String 
Dim bcCourt As cCourt 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = SuperTrim(Key) 
End If 

Set Items = mbcFuzzyCol lect ion. Exact I terns (strKeyTrim) 
If MatchSimilarFuzzyCollection = True Then 

f~% If Items. Count = 0 Then Set Items = mbcFuzzyCollection . Similarltems {strKeyTrim) 
HSS If 

End Function 

Public | Function Count {) As Long 

Cojmt = mcolCourts. Count 
End E^&ction 

Pub l£6r Function NewEnumO As IUnknown 

NewEnum = mcolCourts. [_NewEnum] 
End Function 

4F 

*J 

I u 
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' — Copyright 2001 by Robert L. Jacq 

Option Explicit 

Private mobj Items () As Object 
Private mstrKeysO As String 
Private mint Arrays tart { ) As Integer 
Private mintArrayEnd { ) As Integer 
Private mlngCount As Long 
Private mlngArraySize As Long 
Private mbol Initialized As Boolean 

Private Const INCREASE_PERCENT As Long =0.1 
Private Const INCREASE_MIN As Long =10 
Private Const BUCKETS As Long = 128 

Friend Sub Add (Item As Object, Key As String) 

Dim lnglncrease As Long 



'-- If the array is full, then resize the array to make room for the new entry. 
If mlngCount = mlngArraySize Then 

lnglncrease = mlngArraySize * INCREASE_PERCENT 

If lnglncrease < INCREASE_MIN Then lnglncrease = INC REAS E_M I N 

mlngArraySize = mlngArraySize + lnglncrease 

ReDim Preserve mobjltemsd To mlngArraySize) 

ReDim Preserve mstrKeys(l To mlngArraySize) 
End If 

•-- Add the new item. 
mlngCount = mlngCount + 1 
Set mobj I terns (mlngCount) = Item 
mstrKeys (mlngCount) = Key 

mbollnitialized = False 

End Sub 

Frien^T function Exactltem{ Source As String) As Object 

Look for an item that has a key that matches exactly. 

Dirl i As Long 

Dtj| IngValue As Long 

y i 

Lf ,Not mbollnitialized Then Call Initialize 
IngValue = AsciiValue (Source) 

h\ 

Fdtf i = mintArrayStart (IngValue) To mintArrayEnd ( IngValue) 

iEj! If Source = mstrKeys (i) Then 

Set Exact I tern = mobjltemsd) 

= Exit Function 

^ End If 
Ntext i 

fl J 

End Elite t ion 

Friend. Function Exact I terns (Source As String) As Collection 

f £ k Look for an item that has a key that matches exactly. 

ijiin i As Long 

Dim IngValue As Long 



Set Exactltems = New Collection 

If Not mbollnitialized Then Call Initialize 

IngValue = AsciiValue (Source) 

For i = mintArrayStart (IngValue) To mintArrayEnd (IngValue) 

If Source = mstrKeys (i) Then 

Exactltems .Add mobj Items (i) 

End If 
Next i 

End Function 

Friend Function Similarltems (Source As String) As Collection 

■ — Search for an item with a similar key. 

Dim i As Long 

Dim IngValue As Long 

Dim IngSourceLength As Long 



Set Similarltems = New Collection 

If Not mbollnitialized Then Call Initialize 

IngSourceLength = Len( Source) 

If IngSourceLength > 1 Then 

IngValue = AsciiValue (Source) 

For i = mintArrayStart ( IngValue) To mintArrayEnd (IngValue) 
Select Case Len (mstrKeys ( i) ) 
Case Is > 2 

If Abs (IngSourceLength - Len (mstrKeys ( i) ) ) < 2 Then 

If EditDistanceMaxOne (mstrKeys (i ) , Source) = 1 Then 
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Similaj^ks . Adc^^Bj Items ( ^fl^ 
End If 
End If 

Case Is = 2 

If IngSourceLength = 3 Then 

If EditDistanceMaxOne(mstrKeys (i) , Source) = 1 Then 

Similar I terns. Add mob jl terns ( i) 
End If 
End If 

End Select 

Next i 
End If 

End Function 

Friend Sub Initialize () 

Call SortValues 

Call CreateForwardStar 

mbollnitialized = True 

End Sub 

Private Sub SortValues O 

'-- Sort the items by key value using a modified countingsort . 

Dim i As Long 

Dim IngValue As Long 

Dim IngCountsO As Long 

Dim IngNext Posit ion ( ) As Long 

Dim IngPosition As Long 

Dim strSortedKeys ( ) As String 

Dim obj Sortedl terns () As Object 

Initialize the counts to 0. 
R|Q|im lngCounts(0 To BUCKETS) 
ReJJim lngNextPosition(0 To BUCKETS) 

'V.-* Count the values. 
For i - 1 To mlngCount 
\j IngValue = AsciiValue (rastrKeys (i) ) 
3 =a lngCounts( IngValue) = IngCounts ( IngValue) + 1 
Ifeit i 

f-- Determine the correct starting position for each value. 

JiJgPosition = 1 

For i = 0 To BUCKETS 

IngNext Position(i) = IngPosition 

IngPosition = IngPosition + IngCounts (i) 
Iffext i 
$*% 

^zr Build a new array with the items in their correct positions. 
Eepim strSortedKeys (1 To mlngCount) 
Hepim obj Sortedl t eras (1 To mlngCount) 
Hear i = 1 To mlngCount 

IngValue = AsciiValue (mstrKeys (i) ) 

IngPosition = IngNex t Posit ion { IngValue) 
^= If Not strSortedKeys (IngPosition) = vbNullString Then Err. Raise 1000 '-- Check for error. 

. " strSortedKeys (IngPosition) = mstrKeys (i) 
f** Set obj Sortedl terns (IngPosition) = mobjl terns (i) 

IngNext Posit ion ( IngValue) = IngNext Posit ion (IngValue) + 1 
Next i 

' — Assingn the new sorted arrays as the main module arrays. 
mstrKeys = StrSortedKeys 
mob j Items = obj Sortedl terns 
mlngArraySize = mlngCount 

End Sub 

Private Sub CreateForwardStar ( ) 

■ — Build a forward star data structure by locating the first and last items containg this first letter 

Dim i As Long 

Dim IngValue As Long 



ReDim mintArrayStart (0 To BUCKETS) 
ReDim mintArrayEnd (0 To BUCKETS) 

For i = 0 To BUCKETS 

mintArrayStart (i) = 0 

mintArrayEnd (i) = -1 
Next i 

For i = 1 To mlngCount 

IngValue = AsciiValue (mstrKeys (i) ) 

If mintArrayStart (IngValue) = 0 Then mintArrayStart ( IngValue) = i 
mintArrayEnd (IngValue) = i 
Next i 

End Sub 

Private Function AsciiValue (Source As String) As Long 

' — Returns a value depending on the first letter of the source, or 0 if the source is an empty string. 
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If Source = vbNullString Then^H 
AsciiValue = 0 

Else 

AsciiValue = Asc (Source) Mod 
End If 

End Function 

Private Sub DebugPrintForwardStar ( ) 

Dim i As Long 

For i = 0 To BUCKETS 

Debug. Print i & n : " fc mintArrayStart (i) , tnintArrayEnd (i) 
Next i 

End Sub 

Private Sub DebugPrint I terns (Value As Long) 
Dim i As Long 

For i = mintArrayStart (Value) To mint Array End (Value) 

Debug. Print mstrKeys(i) 
Next i 

End Sub 

Private Function EditDistanceMaxOne (ByVal Source As String, ByVal Target As String) As Long 
Dim i As Long 

Dim IngFirstWrongChar As Long 
Dim IngLastWrongChar As Long 
Dim bytSourceO As Byte 
Dim bytTargetO As Byte 
Dim IngSourceLen As Long 
Dim IngTargetLen As Long 
Dim IngOffset As Long 

D 

IngSourceLen = Len (Source) 
IngTargetLen = Len (Target) 

\4 Convert the strings to byte arrays. If one string is longer than the other, then pad the end of the shorter string with 
'gfs an extra space. 
3y= l IngSourceLen < IngTargetLen Then 
| cL bytSource = Source & " " 
: c ~ bytTarget = Target 
ft| IngOffset = -2 

sf§elf IngSourceLen > IngTargetLen Then 
4jt= bytSource = Source 

bytTarget = Target & " " 
E IngOffset = 2 
Eflse 

bytSource = Source 
fsl bytTarget = Target 

i^-r Search forward from the start to determine the first error. 
§b'r i = 0 To UBound( bytSource) Step 2 
f c | If bytSource (i) <> bytTarget (i) Then 

IngFirstWrongChar = i 

Exit For 
End If 
Next i 

'-- Search backwards from the end to determine the last error. 
If IngSourceLen > IngTargetLen Then 

For i = IngSourceLen * 2 - 2 To IngFirstWrongChar Step -2 
If bytSource (i) <> bytTarget (i - IngOffset) Then 
IngLastWrongChar = i 
Exit For 
End If 
Next i 

Elself IngSourceLen = IngTargetLen Then 

For i = IngSourceLen * 2 - 2 To IngFirstWrongChar Step -2 
If bytSource (i) <> bytTarget (i) Then 
IngLastWrongChar = i 
Exit For 
End If 
Next i 

Else 

For i = IngSourceLen * 2 - 2 To IngFirstWrongChar Step -2 
If bytSource (i) <> bytTarget (i - IngOffset) Then 
IngLastWrongChar = i - IngOffset 
Exit For 
End If 
Next i 
End If 

' — Determine whether the first and last errors are at the same position. 
If IngFirstWrongChar >= IngLastWrongChar Then 

EditDistanceMaxOne = 1 
Elself IngFirstWrongChar = IngLastWrongChar - 2 Then 

• -- If the only problem is that two characters are transposed, treat that as a single edit count 

(even though the traditional edit distance function treats transposed characters as two edits) . 
If bytSource (IngFirstWrongChar) = bytTarget ( IngLastWrongChar) _ 
And bytSource ( IngLastWrongChar) = bytTarget ( IngFirstWrongChar) Then 
EditDistanceMaxOne = 1 

Else 
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EditDistanceMaxOne = 2 
End If 

Else 

EditDistanceMaxOne = 2 
End If 

End Function 
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cGlobals - 1 

'-- Copyright 2001 by Robert L. Jac 

Option Explicit 
Private mbcJurisdictions As cJurisdictions 

Public Property Get Jurisdictions ( ) As cJurisdictions 

If mbcJurisdictions Is Nothing Then Set mbcJurisdictions = New cJurisdictions 

Set Jurisdictions = mbcJurisdictions 
End Property 

Public Property Set Jurisdictions (Source As cJurisdiction) 

Set mbcJurisdictions = Source 
End Property 

Private Sub Class_Initialize ( ) 

Set mbcJurisdictions = gbcJurisdictions 
End Sub 
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' — Copyright 2 001 by Robert L. Jac 

Option Explicit 

Private mbcCourts As cCourts 
Private mcolCourtGroups As Collection 
Private mbcAllReporters As cReporters 
Private mstrFullName As String 
Private mstrAbrvName As String 
Private mstrFullNameTrim As String 
Private mstrAbrvNameTrim As String 
Public Score As Long 

Private Sub Class_Initialize ( ) 

Set mbcCourts = New cCourts 

Set mcolCourtGroups = New Collection 

Set mbcAllReporters = New cReporters 

ObjectsCount = ObjectsCount + 1 

Debug. Print "Jurisdiction created. Total: " & ObjectsCount 
End Sub 

• Private Sub Class_Terminate { ) 

ObjectsCount = ObjectsCount - 1 

Debug. Print "Jurisdiction destroyed. Total: " & ObjectsCount 
' End Sub 

Public Property Get Courts () As cCourts 

Set Courts = mbcCourts 
End Property 

Public Property Get AllReporters ( ) As cReporters 

Set AllReporters = mbcAllReporters 
End Property 

Publi|pProperty Get FullNameO As String 

FuAlName = mstrFullName 
End P&Jperty 

Friend* Property Let FullName (ByVal Source As String) 

ntsJrFullName = Source 

m|£rFullNameTrim = Super Trim ( Source) 
End &#4>perty 

Public" Property Get FullNameTrim( ) As String 

jillNameTrim = mstrFullNameTrim 
End Property 

Public Property Get AbrvNameO As String 

AbrvName = mstrAbrvName 
End Property 

Frie£|j Property Let AbrvName (ByVal Source As String) 

MstrAbrvName = Source 

i&StrAbrvNameTrim = SuperTrim{ Source) 
End Property 

Publ|c| Property Get AbrvNameTrimf ) As String 

SirvNameTrim = mstrAbrvNameTrim 
End Psbperty 

Public Property Get CourtGroups ( ) As Collection 

Set CourtGroups = mcolCourtGroups 
End Property 
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'-- Copyright 2001 by Robert L. Jai 

Option Explicit 

Private mcolJurisdictions As Collection 

Private mcolAHCourtGroups As Collection 

Private mbcAHCourts As cCourts 

Private mbcAllReporters As cReporters 

Private mbcFuzzyCollection As cFuzzyCollection 

Private Sub Class_Initialize ( ) 

Set mcolJurisdictions = New Collection 

Set mcolAllCourtGroups - New Collection 

Set mbcAllCourts = New cCourts 

Set mbcAllReporters = New cReporters 

Set mbcFuzzyCollection = New cFuzzyCollection 




Call PopulateJurisdictions (Me) 
Call LoadReporters (Me) 

Debug. Print "Jurisdictions Initialize" 



End Sub 



Private Sub Class_Terminate { ) 



Debug. Print "Jurisdictions Terminate" 



End Sub 



Public Sub ScoreResetO 



Dim bcJurisdiction As cJurisdiction 



For Each bcJurisdiction In mcolJurisdictions 

bcJurisdiction . Score = 0 
Next bcJurisdiction 



End 




Pub l^fel Function ScoreBest { ) As cJurisdiction 

Dim bcJurisdiction As cJurisdiction 
DdA IngBestScore As Long 

]|#f Each bcJurisdiction In mcolJurisdictions 
: . If bcJurisdiction . Score > IngBestScore Then 
t^' Set ScoreBest = bcJurisdiction 

IngBestScore = bcJurisdiction . Score 
End If 
Iglxt bcJurisdiction 

End function 

Ass, 

Publi^ Function ScoresBest (Optional MinimumScore As 

6iin bcJurisdiction As cJurisdiction 
fjjiri IngBestScore As Long 
gim IngMinimum As Long 

iss. 

?6r Each bcJurisdiction In mcolJurisdictions 
3s!: If bcJurisdiction . Score > IngBestScore Then 
Next bcJurisdiction 



Long, Optional Deviance As Long) As Collection 



IngBestScore = bcJurisdiction. Score 



IngMinimum = IngBestScore - Deviance 

If MinimumScore > 0 And IngMinimum < MinimumScore Then IngMinimum = MinimumScore 

Set ScoresBest = New Collection 
If IngBestScore >- IngMinimum Then 

For Each bcJurisdiction In mcolJurisdictions 

If bcJurisdiction. Score >= IngMinimum Then ScoresBest. Add bcJurisdiction 

Next bcJurisdiction 
End If 



End Function 



Public Property Get AllCourtGroups O As Collection 

Set AllCourtGroups = mcolAllCourtGroups 
End Property 

Public Property Get AllCourtsO As cCourts 

Set AllCourts = mbcAllCourts 
End Property 

Public Property Get AllReporters ( ) As cReporters 

Set AllReporters = mbcAllReporters 
End Property 

Friend Sub Add( Jurisdiction As cJurisdiction, Aliases As Variant) 



Dim varAlias As Variant 
Dim strAliasTrim As String 



With Jurisdiction 

mcolJurisdictions. Add Jurisdiction, . FullNameTrim 
mbcFuzzyCollection .Add Jurisdiction, . AbrvNameTrim 

If .AbrvNameTrim <> .FullNameTrim Then mbcFuzzyCollection .Add Jurisdiction, .FullNameTrim 
End With 
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es^^^uld be 



/2? 



For Each varAlias In Aliases ^^^^ ^^^^ 

strAliasTrim = CStr (varAlias )^^^F ' — Aliases^^^Kild be supplied as trimmed. 

If Not (varAlias = SuperTrim( strAliasTrim) ) Then Stop ' — For debugging only. Delete later. 
mbcFuzzyCollection. Add Jurisdiction, strAliasTrim 

Next varAlias 

End Sub 

Friend Sub AddAli as (Jurisdiction As cJurisdiction, Alias As String) 

mbcFuzzyCollection. Add Jurisdiction, Alias 
End Sub 

Public Function ExactItem(FullName As String) As cJurisdiction 

Set Exactltem = Item(FullName, True, False) 
End Function 

Public Function Item(Key As String, MatchExactAlias As Boolean, MatchSimilarFuzzyCollection As Boolean, Optional KeylsTrimmed As Boolean = 
False) As cJurisdiction 

Dim strKeyTrim As String 
Dim colltems As Collection 
Dim bcReporter As cReporter 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = SuperTrim(Key) 
End If 

If MatchExactAlias Then Set Item = mbcFuzzyCollection. Exactltem( strKeyTrim) 
If Item Is Nothing And MatchSimilarFuzzyCollection = True Then 

Set colltems = mbcFuzzyCollection. Similar Items (strKeyTrim) 

If colltems . Count > 0 Then Set Item = colltems (1) 

sffii if 

End Faction 
H. = 

Public^Function Items (Key As String, MatchExactAlias As Boolean, MatchSimilarFuzzyCollection As Boolean, Optional KeylsTrimmed As Boolean = 
Faisal As Collection 

Difii strKeyTrim As String 
I^im bcReporter As cReporter 

rf* KeylsTrimmed Then 
=iEsa strKeyTrim - Key 
Else 

s strKeyTrim = SuperTrim(Key) 
tffifl If 

I f:j MatchExactAlias Then Set Items = mbcFuzzyCollection . Exact Items ( strKeyTrim) 
|£ MatchSimilarFuzzyCollection = True Then 
ij~J If Items. Count = 0 Then 

s r Set Items = mbcFuzzyCollection. Similarltems (strKeyTrim) 

End if 
End If 

End Ptinction 

Public Function Index (Number As Integer) As cJurisdiction 

Set Index = mcolJur isdict ions (Number ) 
End Function 

Public Function Count ( ) As Long 

Count = mcolJurisdictions . Count 
End Function 

Public Function NewEnumO As I Unknown 

Set NewEnum = mcolJurisdictions . [_NewEnum] 

End Function 

'Public Sub Initialize () 

Dim bcJurisdiction As cJurisdiction 
' Dim bcCourtGroup As cCourtGroup 



For Each bcJurisdiction In mcolJurisdictions 

For Each bcCourtGroup In bcJurisdiction. CourtGroups 

Call bcCourtGroup . Courts . FuzzyCollection. Initialize 
Call bcCourtGroup . Reporters . FuzzyCollection. Initialize 
Next bcCourtGroup 
Next bcJurisdiction 

Call mbcFuzzyCollection. Initialize 

Call mbcAllCourts . FuzzyCollection. Initialize 

Call mbcAllReporters. FuzzyCollection. Initialize 



End Sub 
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Public Sub Cleanup <) ^(^^ 

Dim bcJurisdiction As cJurisdiction 
Dim bcCourtGroup As cCourtGroup 
Dim bcCourt As cCourt 
Dim bcReporter As cReporter 

Debug. Print "Jurisdictions Cleanup" 

For Each bcJurisdiction In mcolJurisdictions 

For Each bcCourtGroup In bcJurisdiction. CourtGroups 
Set bcCourtGroup . Parent = Nothing 
For Each bcReporter In bcCourtGroup. Reporters 

Set bcReporter . Parent = Nothing 
Next bcReporter 

Next bcCourtGroup 

For Each bcCourt In bcJurisdiction. Courts 

Set bcCourt . Parent = Nothing 
Next bcCourt 

Next bcJurisdiction 

Set mcolJurisdictions = Nothing 
Set mcolAllCourtGroups = Nothing 
Set mbcAHCourts = Nothing 
Set mbcAllReporters = Nothing 



End Sub 
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cReporter - 1 

■ — Copyright 2001 by Robert ^^^a cobs on . 
Option Explicit 




Private mcolEditors As Collection 

Private mlngKey As Long 

Private mlngVolumeStart As Long 

Private mlngVolumeEnd As Long 

Private mlngYearStart As Long 

Private mlngYearEnd As Long 

Private mlngGroupCode As Long 

Private mbolJurisdictionlmplicit As Boolean 

Private mstrFullName As String 

Private mstrFullNameTrim As String 

Private mstrAbrvName As String 

Private mstrAbrvNameTrim As String 

Private mbcMainReporter As cReporter 

Private mlngMainReporterVolumeFirst As Long 

Private mbcImplicitCourt As cCourt 

Private mbcParent As cCourtGroup 

Public Score As Long 

Public Property Get Editors () As Collection 

Set Editors = mcolEditors 
End Property 

Friend Property Get KeyO As String 

Key = "K" & mlngKey 
End Property 

Public Property Get MainReporter { ) As cReporter 

Set MainReporter = mbcMainReporter 
End Property 

Friend Property Set MainReporter (Source As cReporter) 

Set mbcMainReporter = Source 
End Property 

Public?: Property Get MainReporterVolumeFirst ( ) As Long 

MainReporterVolumeFirst = mlngMainReporterVolumeFirst 
End Hilperty 

\* 

Friend* Property Let MainReporterVolumeFirst (Source As Long) 

mlngMainReporterVolumeFirst = Source 
End Property 

in 

Public. Function MainReporterVolumeLast ( ) As Long 
ft h Uot (mbcMainReporter Is Nothing) Then 

MainReporterVolumeLast = mlngMainReporterVolumeFirst + (mlngVolumeEnd - mlngVolumeStart 

Ma if 

End Faction 

Public Property Get Volumes tart ( ) As Long 

Voiume Start = mlngVolumeStart 
End Property 

fl : 

Friend; Property Let VolumeStart (ByVal Source As Long) 

§|JigVolumeStart = Source 
End property 

3= = 

: 

Publ#e^ Property Get VolumeEndO As Long 

Ve&umeEnd = mlngVolumeEnd 
End property 

Friend Property Let VolumeEnd(ByVal Source As Long) 

mlngVolumeEnd = Source 
End Property 

Public Property Get YearStartO As Long 

YearStart = mlngYearStart 
End Property 

Friend Property Let YearStart (ByVal Source As Long) 

mlngYearStart = Source 
End Property 

Public Property Get YearEndO As Long 

YearEnd = mlngYearEnd 
End Property 

Friend Property Let YearEnd (ByVal Source As Long) 

mlngYearEnd = Source 
End Property 

Public Property Get GroupCodeO As Long 

GroupCode = mlngGroupCode 
End Property 

Friend Property Let GroupCode (ByVal Source As Long) 

mlngGroupCode = Source 
End Property 

Public Property Get Jurisdictionlmplicit ( ) As Boolean 

Jurisdictionlmplicit = mbolJurisdictionlmplicit 
End Property 



Friend Property Let Jurisdictionlmplicit (ByVal Source As Boolean) 

mbolJurisdictionlmplicit = Source 
End Property 



cReporter - 2 

Public Property Get FullName () As 

FullName = mstrFullName 
End Property 

Friend Property Let FullName (By Val Source As String) 

mstrFullName = Source 

mstrFullName Trim = SuperTrim{ Source) 
End Property 

Public Property Get FullNameTrim( ) As String 

FullNameTrim = mstrFullNameTrim 
End Property 

Friend Property Let AbrvName (ByVal Source As String) 

mstrAbrvName = Source 

mstrAbrvNameTrim = SuperTrim( Source) 
End Property 

Public Property Get AbrvName () As String 

AbrvName = mstrAbrvName 
End Property 

Public Property Get AbrvNameTrim{ ) As String 

AbrvName Trim = mstrAbrvNameTrim 
End Property 

Public Function implicitJurisdiction ( ) As cJurisdiction 

If mbolJurisdictionlmplicit Then 

Set ImplicitJurisdiction = Me . Parent . Parent 

End If 
End Function 

Public Property Get ImplicitCourt ( ) As cCourt 

Set ImplicitCourt = mbc ImplicitCourt 
End Property 

Friend Property Set ImplicitCourt (Source As cCourt) 

Set mbcImplicitCourt = Source 
End Property 

Publitff Property Get Parent () As cCourtGroup 

S§i Parent = mbcParent 
End Property 

Friertdj Property Set Parent (ByVal Source As cCourtGroup) 

Set mbcParent = Source 
End ^fsperty 

Public* Function HasEditorsO As Boolean 

1^3 mcol Editors. Count > 0 Then HasEditors = True 
End Plifiction 

iK 

Public Function IsEditorReporter ( ) As Boolean 

Ef Not (mbcMainReporter Is Nothing) Then IsEditorReporter = True 
End Sanction 

Private Sub Class_Initialize ( ) 

i|ifigKey = UniqueKeyO 

|[e£ mcolEditors - New Collection 

.SbjectsCount = ObjectsCount + 1 
' fFebug. Print "Reporter created. Total: " & ObjectsCount 
End Sato 

'Private Sub Class_Terminate ( ) 

" ObjectsCount = ObjectsCount - 1 
' Debug. Print "Reporter destroyed. Total: " & ObjectsCount 
'End Sub 
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'-- Copyright 2001 by Robert L. Jac 

Option Explicit 

Private mcolReporters As Collection 

Private mbcFuzzyCol lection As cFuzzyCollection 

Friend Property Get FuzzyCollection ( ) As cFuzzyCollection 

Set FuzzyCollection = mbcFuzzyCollection 
End Property 

Private Sub Class_Initialize ( ) 

Set mcolReporters = New Collection 

Set mbcFuzzyCollection = New cFuzzyCollection 

End Sub 

Public Sub ScoreResetO 

Dim bcReporter As cReporter 

For Each bcReporter In mcolReporters 

bcReporter. Score = 0 
Next bcReporter 

End Sub 

Public Function ScoreBestO As cReporter 

Dim bcReporter As cReporter 
Dim IngBestScore As Long 

For Each bcReporter In mcolReporters 

If bcReporter . Score > IngBestScore Then 
Set ScoreBest = bcReporter 
IngBestScore = bcReporter . Score 
End If 
Next bcReporter 

End Function 

Frien.de Sub Add (Reporter As cReporter, Optional After As cReporter) 
With Reporter 

.jf If After Is Nothing Then 

yl mcolReporters. Add Reporter, CStr(.Key) 

i\ = Else 

mcolReporters. Add Reporter, CStr(.Key), Af ter : =CStr (After . Key) 
?k End If 

^ mbcFuzzyCollection. Add Reporter, . AbrvNameTrim 
§jjfl With 

End Sub 

FriefW^ Sub AddAlias (Reporter As cReporter, AliasTrim As String) 

fa 

ABpFuzzyCol lection. Add Reporter, AliasTrim 
End |ub 

Publics Function ltem(Key As String, MatchExactAlias As Boolean, MatchSimilarAlias As Boolean, Optional ByRef KeylsTrimmed As Boolean = Fals 
e) As^Reporter 

Dim strKeyTrim As String 
Dim colltems As Collection 
Dim bcReporter As cReporter 



If KeylsTrimmed Then 
strKeyTrim = Key 

Else 

strKeyTrim = SuperTrim(Key) 
End If 

If MatchExactAlias = False And MatchSimilarAlias = False Then 
For Each bcReporter In mcolReporters 

If strKeyTrim = bcReporter .AbrvNameTrim Then 
Set Item = bcReporter 
Exit Function 
End If 
Next bcReporter 

Else 

If MatchExactAlias Then Set Item = mbcFuzzyCollection. Exactltem( strKeyTrim) 
If Item Is Nothing And MatchSimilarAlias Then 

Set colltems = mbcFuzzyCollection. Similarltems (strKeyTrim) 
If colltems .Count > 0 Then Set Item = colltems (1) 
End If 
End If 

End Function 

Public Function Items (Key As String, MatchExactAlias As Boolean, MatchSimilarFuzzyCollection As Boolean, Optional ByRef KeylsTrimmed As Boo 
lean = False) As Collection 

Dim strKeyTrim As String 
Dim bcReporter As cReporter 




If KeylsTrimmed Then 
strKeyTrim - Key 



cReporters - 2 
Else 

strKeyTrim = SuperTrim(Key) 
End If 

If MatchExactAlias = True Then Set Items = mbcFuzzyCollect ion . Exactltems (strKeyTrim) 
If MatchSimilarFuzzyCol lection = True Then 
If Items Is Nothing Then 

Set Items = mbcFuzzyCollection. Similarltems (strKeyTrim) 
Elself Items. Count = 0 Then 

Set Items = mbcFuzzyCollection . Similarltems (strKeyTrim) 
End If 
End If 

End Function 



Public Function Match (Reporter As cReporter) As cReporter 

Dim bcReporter As cReporter 
Dim strReporterAbvr As String 



strReporterAbvr = Reporter .AbrvName 

For Each bcReporter In mcolReporters 

If bcReporter .AbrvName = strReporterAbvr Then 
Set Match = bcReporter 
Exit Function 
End If 
Next bcReporter 

End Function 

Public Function Count () As Long 
Count = mcolReporters . Count 
End Function 

Public Function NewEnumO As I Unknown 

Se_t NewEnum = mcolReporters . [_NewEnum] 
End Friction 

\l 
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■ — Copyright 2001 by Robert L. Ja 

Option Explicit 

Public gbcJurisdictions As New cJurisdictions 
Private mlngUniqueKey As Long 

Public Function UniqueKeyO As Long 

mlngUniqueKey = mlngUniqueKey + 1 
UniqueKey ~ mlngUniqueKey 

End Function 
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mLoadReporters - 1 

1 — Copyright 2001 by Robert L. Jac 

Option Explicit 

Public ObjectsCount As Long 
Public Const bcMINIMUMYEAR = 1600 
Public Const bcMAXIMUMYEAR = 2025 

Public Sub LoadReporters (Jurisdictions As cJurisdictions) 

Call LoadlndividualReporters (Jurisdictions ) 
Call LoadLexisAndWestlawReporters (Jurisdictions) 

End Sub 

Private Sub LoadlndividualReporters (Jurisdictions As cJurisdictions) 

Dim IngFileNumber As Long 

Dim bcReporter As cReporter- 

Dim strAbrvName As String 

Dim strFullName As String 

Dim strMainReporter As String 

Dim strJurisdiction As String 

Dim strCourtGroup As String 

Dim strVolumeStart As String 

Dim strVolumeEnd As String 

Dim strYearStart As String 

Dim strYearEnd As String 

Dim strGroupCode As String 

Dim strlmplicitCourt As String 

Dim strMainReporterVolumeFirst As String 

Dim bcMainReporter As cReporter 



IngFileNumber = FreeFile 

Open "C:\BlueCheck\Data\Reporters.txt" For Input As IngFileNumber 



Do 

si 

S| 

s ?a 
%?§ 
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Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 



Input 
Input 
Input 
Input 
Input 
Input 
Input 
Input 
Input 
Input 
Input 
Input 
Input 



# IngFileNumber , 
# 1 ngF i 1 eNumbe r , 
# IngF i 1 eNumber , 
# 1 ngF i 1 eNumbe r , 
# IngFileNumber, 
# IngF i 1 eNumber , 
# IngFileNumber , 
# IngFileNumber , 
# IngFileNumber , 
# IngFi leNumber , 
# IngFi leNumber , 
# 1 ngF i 1 eNumbe r , 
# In gF i 1 eNumbe r , 



strJurisdiction 

strCourtGroup 

strAbrvName 

strFullName 

strMainReporter 

strVolumeStart 

strVolumeEnd 

strYearStart 

strYearEnd 

strGroupCode 

strlmplicitCourt 

strMainReporter 

StrMainReporterVolumeFirst 



Set bcReporter = New cReporter 
With bcReporter 

. AbrvName = strAbrvName 

.FullName = strFullName 

.VolumeStart = Val ( strVolumeStart ) 

.VolumeEnd = Val (strVolumeEnd) 

.YearStart = Val (strYearStart) 

.YearEnd = Val (strYearEnd) 

.GroupCode = strGroupCode 

Set .Parent = Jurisdictions (strJurisdiction) . CourtGroups ( strCourtGroup) 

If strlmplicitCourt <> " " Then 

Set . ImplicitCourt = . Parent . Parent .Courts . Item( strlmplicitCourt , False, Fals 

. Jurisdictionlmplicit = True 
Elself strJurisdiction = "Federal" Then 

.Jurisdictionlmplicit = True 
Elself Instr (bcReporter . AbrvNameTrim, . Parent . Parent . AbrvNameTrim) Then 

.Jurisdictionlmplicit = True 
End If 



False, False) 



I£ strMainReporter <> " n Then 

Set bcMainReporter = . Parent . Reporters (strMainReporter, 

Set .MainReporter - bcMainReporter 

bcMainReporter .Editors .Add bcReporter 
End If 

.MainReporterVolumeFirst - Val (StrMainReporterVolumeFirst ) 
End With 

bcReporter . Parent . Reporters . Add bcReporter 

bcReporter . Parent .Reporters .AddAlias bcReporter, bcReporter .FullNameTrim 
bcReporter . Parent . Parent . Al IRepor ters . Add bcReporter 

bcReporter . Parent . Parent . AllReporters . AddAlias bcReporter, bcReporter . FullNameTrim 
Jurisdictions . AllReporters .Add bcReporter 

Jurisdictions .AllReporters .AddAlias bcReporter, bcReporter . FullNameTrim 

1 DoEvents 

Loop Until EOF (IngFileNumber) 
Close IngFileNumber 



End Sub 



Private Sub LoadLexisAndWestlawReporters (Jurisdictions As cJurisdictions) 



Dim bcJurisdiction As cJurisdiction 
Dim bcCourtGroup As cCourtGroup 
Dim bcReporter As cReporter 



mLoadReporters 



- 2 



For Each bcJurisdiction In Juris* 
For Each bcCourtGroup In bcJi 




CourtGroups 



Set bcReporter = New cReporter 

With bcReporter 

.AbrvName = " WL " 
.FullName = "Westlaw" 
.VolumeStart = bcMlNIMUMYEAR 
.VolumeEnd = bcMAXIMUMYEAR 
.YearStart = bcMlNIMUMYEAR 
.YearEnd = bcMAXIMUMYEAR 

.GroupCode = strGroupCode 
Set .Parent = bcCourtGroup 

End With 

bcCourtGroup . Reporters .Add bcReporter 



Next bcCourtGroup 
Next bcJurisdiction 

Set bcReporter = New cReporter 
With bcReporter 

.AbrvName = "WL" 

.FullName = "Westlaw" 

.VolumeStart = bcMlNIMUMYEAR 

.VolumeEnd = bcMAXIMUMYEAR 

.YearStart = bcMlNIMUMYEAR 

.YearEnd = bcMAXIMUMYEAR 
.GroupCode = strGroupCode 

Set .Parent = bcCourtGroup 
End With 

Jurisdictions . AllReporters . Add bcReporter 



End Sub 



mPopulateJurisdictions - 1 
'-- Copyright 2001 by Robert L. Ja^kn. 
Option Explicit ^J^r 
Private mbc Jurisdictions As cJurisdictions 
Public Sub PopulateJurisdictions (Jurisdictions As cJurisdictions) 

Set mbcJurisdictions = Jurisdictions 

Call AddFederal 

Call AddFederalOldCircuitCourts 
Call AddAla 
Call AddAlaska 
Call AddAriz 
Call AddArk 
Call AddCal 
Call AddColo 
Call AddConn 
Call AddDel 
Call AddDC 
Call AddFla 
Call AddGa 
Call AddHaw 
Call Addldaho 
Call Addlll 
Call Addlnd 
Call Addlowa 
Call AddKan 
Call AddKy 
Call AddLa 
Call AddMe 
Call AddMd 
Call AddMass 
Call AddMich 
Call AddMinn 
Call AddMiss 
Call AddMo 
Call AddMont 
(#11 AddNeb 
(111 AddNev 
Cm! 1 AddNH 
G^il AddNJ 
C'ill AddNM 
Gall AddNY 
Call AddNC 
illl AddND 
Gail AddOhio 
d£il AddOkla 
Gail AddOr 
Mil AddPa 
dpi AddRl 
Call AddSC 
Sail AddSD 
a^.1 AddTenn 
ail AddTex 
£all AddUtah 
Sail AddVt 
f|]U AddVa 
Call AddWash 
Call AddWVa 
Sail AddWis 
kskl AddWyo 
feLl AddAmSamoa 
Call AddCZ 
Call AddGuam 
Call AddNavajo 
Call AddNMarl 
Call AddPR 
Call AddVI 

Set mbcJurisdictions = Nothing 
End Sub 

Private Sub AddFederal ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Dim obj Jurisdiction As cJurisdiction 

Dim strJurName As String 



Set NewJur = AddJurisdict ion { "Federal " , "Fed.", "us") 

Set NewCourtGroup = AddC our t Group (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Supreme Court", "", 1790, 0, True, "suprct", "supct" , "set") 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 3 
NewCourtGroup. NonParallelReporters .Add 4 

Set NewCourtGroup = AddCourtGroup (NewJur, "Circuit Justices") 

Set NewCourt = AddCourt (NewCourtGroup, "Circuit Justice", "Circuit Justice", 1790, 0, True) 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup . NonParal lelRepor t er s . Add 2 
NewCourtGroup. NonParallelReporters .Add 3 
NewCourtGroup. NonParallelReporters .Add 4 




Set NewCourtGroup = AddCourtGroup (NewJur, "Courts of Appeals") 



mPopulateJurisdictions 



Co^^^koup, ^^^ r 

CouWroup, "Cour 



tz 9 



t of Appeals for the First Circuity 



t 

:d Cir. 



Set NewCourt = AddCourt (NewO 
cal", "calst", "cirl", "firstcir ^^^^ 

Set NewCourt = AddCourt (NewCo^^Pf oup, "Court of Appeals for the Second Circuit 1 ' 
a2", "ca2d", "cir2", "secondcir", "2ndcir" , "cca2nd", "ca2nd") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Third Circuit", "3d Cir. 
3", "ca3d", "cir3", "thirdcir", "3rdcir", "cca3rd", "ca3rd") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Fourth Circuit" 
"ca4", "ca4th", "cir4", "fourthcir") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Fifth Circuit", "5th Cir. 
ca5", "ca5th", "cir5", "f if their") 

Set NewCourt = AddCourt (NewCourtGroup, 
ca6", "ca6th", "cir6", "sixthcir" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
"ca7", n ca7th", "cir7", "seventhcir") 

Set NewCourt = AddCourt (NewCourtGroup, 
"ca8 n , "ca8th", "cir8", "eighthcir") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Ninth Circuit", "9th Cir 



1891, 0, True, "lcir", 
1891, 0, True, "2cir", 
1891, 0, True, "3cir" , 
4th Cir,", 1891, 0, True, "4cir" 



"ccalst", "ccal", " 
"cca2d", "cca2", "c 
cca3d", "cca3", "ca 

"cca4th", "cca4", 
"ccaSth", "cca5", " 
"cca6th", M cca6", " 



1891, 0, True, "5cir" 

Court of Appeals for the Sixth Circuit", "6th Cir.", 1891, 0, True, "6cir" 

Court of Appeals for the Seventh Circuit", "7th Cir.", 1891, 0, True, "7cir", u cca7th", "cca7" 
Court of Appeals for the Eighth Circuit", "8th Cir.", 1891, 0, True, "8cir", "cca8th", "cca8", 

1891, 0, True, "9cir", "cca9th" , "cca9", 



ca9", "ca9th", "cir9", "ninthcir") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Tenth Circuit", "10th Cir.", 1891, 0, True, "lOcir", "ccalOth", "ccalO 
", "calO", "calOth", "cirlO", "tenthcir") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the Eleventh Circuit", "11th Cir.", 1891, 0, True, "llcir", "ccallth", "cc 
all", "call"', "cal 1th", "cirll", "eleventhcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals for the District of Columbia Circuit", "D.C. Cir.", 1919, 0, True, "ccadc", "c 
irdc", "cade", "districtof eolumbiaeir " ) 

NewCourtGroup. NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup(NewJur, "Temporary Emergency Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Temporary Emergency Court of Appeals", "Temp. Emer. Ct. App. 



1971, 1993, True, " tempemerappct 



Set NewCourt = AddCourt (NewCourtGroup , "Emergency Court of Appeals", "Emer. Ct. App.", 1942, 1961, True, "emerappct") 
Set NewCourt = AddCourt (NewCourtGroup, "Commerce Court", "Comm. Ct . " , 1910, 1913, True) 
NewCourtGroup . NonParal lelRepor ter s . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "United States Court of Appeals for the Federal Circuit") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Appeals for the Federal Circuit", "Fed. Cir.", 1982, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Customs and Patent Appeals", "C.C.P.A." , 1929, 1982, True) 
Set NewCourt = AddCourt (NewCourtGroup, "Court of Customs Appeals", "Ct. Cust. App.", 1910, 1929, True) 
S^fc NewCourt = AddCourt (NewCourtGroup, "Court of Claims", "Ct. CI.", 1956, 1982, False) 
NjejiCourtGroup .NonParallelReporters .Add 1 
NewCourtGroup .NonParallelReporters .Add 2 

Stei NewCourtGroup = AddCourtGroup (NewJur, "United States Court of Federal Claims") 

Se£ NewCourt = AddCourt (NewCourtGroup , "U.S. Court of Federal Claims", "Fed. CI.", 1992, 0, True) 

Sell NewCourt = AddCourt (NewCourtGroup, "U.S. Claims Court", "CI. Ct.", 1982, 1992, True) 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Claims", "Ct. Cl. u , 1863, 1982, True) 

NewCourtGroup. NonParallelReporters .Add 1 

liawCourtGroup . NonParallelReporters . Add 2 



NewCourtGroup = AddCourtGroup (NewJur, "United States Court of International Trade") 
Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of International Trade", "Ct. Int'l Trade" 



1980, 0, True) 



Set NewCourt = AddCourt (NewCourtGroup, "U.S. Customs Court" 
NewCourtGroup . NonParallelReporters . Add 1 
NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters . Add 3 
NewCourtGroup . NonParallelReporters . Add 4 

oup = AddCourtGroup (NewJur, "District Courts") 
AddCourt (NewCourtGroup, 



AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 



AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 

AddCourt (NewCourtGroup, 



"Cust. Ct. 



1926, 1980, True) 



get 
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NewCourt 


ama " hnk 
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Set 
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Set 


NewCourt 


Set 
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Set 
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Set 
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Set 
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alifornia" ) 
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NewCourt 
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Set 


NewCourt 


Set 


NewCourt 


Set 


NewCourt 


Set 


NewCourt 


inois" ) 




Set 


NewCourt 


nois" ) 




Set 


NewCourt 


inois" ) 





= AddCourt (NewCourtGroup, 



AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 



AddCourt (NewCourtGroup , 
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"U. 


s. 


District 


Court, 


"U. 


s. 


District 


Court, 


"U. 


,s. 


District 


Court, 


"U. 


.s. 


District 


Court, 


"U. 


,s. 


District 


Court, 


"U, 


s. 


District 


Court, 


"U. 


,s. 


District 


Court, 


"U. 


,s. 


District 


Court, 


"U, 


,s. 
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District 


Court, 
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District 


Court, 



Alabama", "N.D. Ala.", 1880, 0, True, "ndal", "ndalab 

Labama", "M.D. Ala.", 1880, 0, True, "mdal", "mdalabam 

Alabama", "S.D. Ala.", 1880, 0, True, "sdal", "sdalab 

"D. Alaska", 1880, 0, True, "dal") 
, "D. Ariz.", 1880, 0, True, "daz" , "darizona") 
Arkansas", "E.D. Ark.", 1880, 0, True, "edak", "edarka 

Arkansas", "W.D. Ark.", 1880, 0, True, "wdak", "wdarka 

California", "N.D. Cal.", 1880, 0, True, "ndca", "ndc 

Zalifornia", "E.D. Cal.", 1880, 0, True, "edca", "edca 

:alifornia", "CD. Cal.", 1880, 0, True, "edca", "edca 

California", "S.D. Cal.", 1880, 0, True, "sdea", "sdc 

H , "D. Colo.", 1880, 0, True, "dco", "dcolorado") 
:ut", "D. Conn.", 1880, 0, True, "dot", "dconnecticut " 



"D. Del. 



1880, 0, True 
, "D.D.C 



dde" , "ddelaware" ) 
1880, 0, True, "ddistrictofco 



, "N.D. Fla . " , 1880, 0, True, "ndfl", "ndflor 
"M.D. Fla.", 1880, 0, True, "mdfl", "mdflorid 
, "S.D. Fla.", 1880, 0, True, "sdfl", "sdflor 



AddCourt (NewCourtGroup, "U.S. District Court, Northern District of Georgia", "N.D. Ga.", 1880, 0, True, "ndgeorgia") 



"M.D. Ga. 



AddCourt (NewCourtGroup, "U.S. District Court, Southern District of Georgia", "S.D. Ga. ' 



1880, 0, True, "mdgeorgia") 



"D. Haw.", 1880, 



1880, 
True, "dhi", 
True, "did", 
L.", 1880, 0, 



True, "sdgeorgia" ) 
"dhawaii " ) 
"didaho" ) 

True, "ndil", "ndill 



AddCourt (NewCourtGroup, "U.S. District Court, Central District of Illinois", "CD. 111.", 1880, 0, True, "cdil", 



"S.D. 111.", 1880, 0, True, "sdil" 



"cdilli 
"sdill 
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nnesaae" ) 
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Set NewCourt = 
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n", "edwashington* 
Set NewCourt = 

n" , "wdwashington' 
Set NewCourt = 

"ndwestvirginia" ) 
Set NewCourt = 

"sdwestvirginia" ) 
Set NewCourt = 

consin" ) 

Set NewCourt = 
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Set NewCourt = 
NewCourtGroup . 
NewCourtGroup . 
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NonParallelReporters . Add 


1 








NonParallelReporters . Add 


2 









f ^I^Brana " , 



MO 

'N.D. Ind. n , 1880, 0, True, "ndin" , "ndindi 
'S.D. Ind." , 1880, 0, True, "sdin", "sdindi 



Northern District of Iowa", "N 
Southern District of Iowa" , "S 
District of Kansas" , "D. Kan." 
Eastern District of Kentucky", 
Western District of Kentucky", 
Eastern District of Louisiana" 
Middle District of Louisiana", 
Western District of Louisiana" 
District of Maine", "D. Me.", 
District of Maryland", "D. Md. 
District of Massachusetts", "D 



1880, 0, True, "ndia") 
1880, 0, True, "sdia" ) 
True, "dks", "dkansas") 
, 1880, 0, True, "edkentucky" ) 
0, True, 

0 , True , 
0 , True , 
0 , True , 



D. Iowa", 
D. Iowa", 
, 1880, 0, 
"E.D. Ky. 
"W.D. Ky. 
, "E.D. La 
"M.D. La. 
, "W.D. La 

1880, 0, True, "dmaine" ) 
", 1880, 0, True, "dmaryland" ) 
Mass.", 1880, 0, True, "dma" 



1880, 
, 1880, 

1880, 
, 1880, 



wdkentucky" ) 
"edlouisiana" ) 
mdlouisiana" ) 
"wdlouisiana" ) 



" dmassachuse 



1880, 



0, True, "dmn" , "dminnesota" ) 
diss.", 1880, 0, True, "ndmi", 



Southern District of Mississippi" 



"S.D. Miss.", 1880, 0, True, "sdmi", "s 



E.D. Mo,", 1880, 

W.D. Mo..", 1880, 

1880, 0, True, 

1880, 0, True, 



Eastern District of Missouri", 
Western District of Missouri", 
District of Montana", "D. Mont. 
District of Nebraska", "D. Neb. 
District of Nevada", "D. Nev.", 1880, 0, True, 
District of New Hampshire", "D.N.H." , 1880, 0, 
District of New Jersey", "D.N.J. ", 1880, 0 
District of New Mexico", "D.N.M.", 1880, 0 
Northern District of New York", "N.D.N.Y." 
Southern District of New York", "S.D.N.Y." 
Eastern District of New York", "E.D.N.Y.", 
Western District of New York", "W.D.N.Y." , 
Eastern District of North Carolina", "E.D.N. C 



0, True, "edmissouri") 
0, True, "wdmissouri" ) 
"dmt", "dmontana") 
"dne", "dnebraska") 
"dnv", "dnevada") 
True , "dnewhampshire" ) 
True, "dnewjersey" ) 
True, "dnewmexico" ) 
1880, 0, True, "ndnewyork" ) 
1880, 0, True, "sdnewyork") 
1880, 0 , True , ° ednewyork " ) 
1880, 0 , True , " wdnewyork " ) 

1880, 0, True, "ednorthca 



■W.D.N.C. " , 1880, 0, True, "wdnorthca 



District of North Dakota", "D.N.D.", 1880, 0, True, "dnorthdakota" ) 
Northern District of Ohio", "N.D. Ohio", 1880, 0, True, "ndoh") 
Southern District of Ohio", "S.D. Ohio", 1880, 0, True, "sdoh") 
Northern District of Oklahoma", "N.D. Okla.", 1880, 0, True, "ndok" , 



Eastern District of Oklahoma", "E.D. Okla.", 1880, 0, True, "edok" 

Western District of Oklahoma", "W.D. Okla.", 1880, 0, True, "wdok" 

District of Oregon", "D. Or.", 1880, 0, True, "doregon") 
Eastern District of Pennsylvania", "E.D. Pa.", 1880, 0, True, 



"ndok 
" edokl 
"wdokl 



"edpennsylva 

Middle District of Pennsylvania", "M.D. Pa.", 1880, 0, True, "mdpenn sylvan 

Western District of Pennsylvania", "W.D. Pa.", 1880, 0, True, "wdpennsylva 

District of Rhode Island", "D.R.I.", 1880, 0, True, "drhodeisland" ) 
District of South Carolina", "D.S.C.", 1880, 0, True, "dsouthcarolina" ) 
District of South Dakota", "D.S.D.", 1880, 0, True, "dsouthdakota" ) 
Eastern District of Tennessee", "E.D. Tenn.", 1880, 0, True, "edtn", "edte 

Middle District of Tennessee", "M.D. Tenn.", 1880, 0, True, "mdtn" , "mdten 

Western District of Tennessee", "W.D. Tenn.", 1880, 0, True, "wdtn", "wdte 

Northen District of Texas", "N.D. Tex.", 1880, 0, True, "ndtx" , "ndtexas") 
Eastern District of Texas", "E.D. Tex.", 1880, 0, True, "edtx", "edtexas") 
Souther District of Texas", "S.D. Tex.", 1880, 0, True, "sdtx", "sdtexas") 
Western District of Texas", "W.D. Tex.", 1880, 0, True, "wdtx", "wdtexas") 
District of Utah", "D. Utah", 1880, 0, True, "dut" , "dutah") 
District of Vermont", "D. Vt . " , 1880, 0, True, "dvermont") 
Eastern District of Virginia", "E.D. Va.", 1880, 0, True, "edvirginia" ) 
Western District of Virginia", "W.D. Va.", 1880, 0, True, "wdvirginia") 
Eastern District of Washington", "E.D. Wash.", 1880, 0, True, "edwa", "edw 

Western District of Washington", "W.D. Wash.", 1880, 0, True, "wdwa", "wdw 

Northern District of West Virginia", "N.D.W. Va." ( 1880, 0, True, "ndwv", 

Southern District of West Virginia", "S.D.W. Va.", 1880, 0, True, "sdwv", 

Eastern District of Wisconsin", "E.D. Wis.", 1880, 0, True, "edwi", "edwis 

Western District of Wisconsin", "W.D. Wis.", 1880, 0, True, "wdwi", "wdwis 

District of Wyoming", "D. Wyo.", 1880, 0, True, "dwy", "dwyoming") 



Set NewCourtGroup = AddCourtGroup ( mbcJurisdict ions ( "Federal" ) , 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, 
ndalabama", "bnkrndala", "bankrndal", "bnkrndal") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, 
alabama", "bnkrmdala" , "bankrmdal" , "bnkrmdal") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, 
sdalabama", "bnkrsdala", "bankrsdal", "bnkrsdal") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, 
bank r da 1 " , "bnkrdal " ) 



"Bankruptcy Courts") 

Northern District of Alabama", "Bankr. N.D. Ala.", 1979, 0, True, "bankr 
Middle District of Alabama", "Bankr. M.D. Ala.", 1979, 0, True, "bankrmd 
Southern District of Alabama", "Bankr. S.D. Ala.", 1979, 0, True, "bankr 
District of Alaska", "Bankr. D. Alaska", 1979, 0, True, "bnkrdalaska" , " 



Set NewCourt 
krcdcalifornia" 



oup, "U.S. Bankruptcy 
bnkredak" ) 
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mPopulateJurisdictions - 4 

Set NewCourt = AddCourt (NewCq^^^oup, Bankruptcy 
nkrdaz", "bnkrdaz") 

Set NewCourt = AddCourt (NewCol 
edarkansas", "bnkredark" , "bankredak 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
wdarkansas" , "bnkrwdark" , "bankrwdak", "bnkrwdak") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
nkrndcalif ornia" , "bnkrndcal " , "bankrndca" 
Set NewCourt = AddCourt (NewCourtGroup, 
kredcalif ornia" , "bnkredcal", "bankredca", 
AddCourt (NewCourtGroup, 
"bnkredcal " , "bankredca", 
Set NewCourt = AddCourt (NewCourtGroup, 
nkrsdcali f ornia " , "bnkrsdcal", "bankrsdea" 
Set NewCourt = AddCourt (NewCourtGroup, 
", "bnkrdcolo" , "bankrdco", "bnkrdco") 

Set NewCourt = AddCourt (NewCourtGroup, 
cticut", "bnkrdconn", "bankrdct", "bnkrdct") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. 
, "bnkrddel", "bankrdde", "bnkrdde") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. 
rddistrictof Columbia" , "bnkrdde" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. 
ndflorida", "bnkrndf la" , "bankrndfl", "bnkrndfl") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
f lorida" , "bnkrmdf la" , "bankrmdf 1 " , "bnkrmdf 1 " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
sdf lorida" , "bnkrsdfla", "bankrsdfl", "bnkrsdfl") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
dgeorgia" , "bnkrndga" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
eorgia" , "bnkrmdga" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
dgeorgia", "bnkrsdga") 

Set NewCourt = AddCourt (NewCourtGroup, 
nkrdhaw" , " bankr dhi " , "bnkrdhi " ) 

Set NewCourt = AddCourt (NewCourtGroup, 
krdid " , " bnkrdid " ) 

Set NewCourt = AddCourt (NewCourtGroup, 
rndilJ]|nois" , "bnkrndill", "bankrndil", "bnkrndil") 

Salt NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
cdilBfcdois", "bnkrcdill", "bankrcdil", "bnkrcdil") 

S$|£ NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
rsdillinois" , "bnkrsdill ■ , "bankrsdil", "bnkrsdil") 

2te| NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
ndindiana", "bnkrndind", "bankrndin", "bnkrndin"} 

4?| NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
sdindiana", "bnkrsdind" , "bankrsdin", "bnkrsdin") 

set NewCourt = AddCourt (NewCourtGroup, 
wa " , if jfbankrndia " , "bnkrndia " ) 

NewCourt = AddCourt (NewCourtGroup, 
wa" , 4p -bankr sdia" , "bnkrsdia" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
nkrdffan", "bankrdks", "bnkrdks") 

$&t NewCourt = AddCourt (NewCourtGroup, 
dken|ppky " , " bnkr edky " ) 

SfeJ: NewCourt = AddCourt (NewCourtGroup, 
dk en fcwipky " , " bnk rwdky n ) 

hsk- NewCourt = AddCourt (NewCourtGroup, 
edloiaisiana" , "bnkredla" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
dlouljEsiiana " , " bnkrmdla " ) 

jSlft NewCourt = AddCourt (NewCourtGroup , 
wdloffci?siana" , "bnkrwdla" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
dme" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
"bnkrdmd" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
sachusetts " , "bnkrdmass" , "bankrdma", "bnkrdma") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
redmichigan" , "bnkredmich" , "bankredmi", "bnkredmi") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
rwdmichigan" , "bnkrwdmich" , "bankrwdmi", "bnkrwdmi") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
ta " , " bnkrdminn " , " bankrdmn " , " bnkr dmn " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
bankrndmississippi" , "bnkrndmiss" , "bankrndmi " , "bnkrndmi") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
bankrsdmississippi" , "bnkrsdmiss" , "bankrsdmi", "bnkrsdmi") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
dmissouri", "bnkredmo") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
dmissouri", "bnkrwdmo" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
" bankr dmt " , " bnkr dmont " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
, " bankr dne", "bnkrdneb" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
ankr dn v " , " bnk r dne v " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
mpshire", "bnkrdnh") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
y", "bnkrdnj") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
o", "bnkrdnm") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
ndnewyor k " , " bnkrndny " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
sdnewyork" , "bnkrsdny") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy 
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District of Ari^^^ "^^F' °' Ariz,B ' 1979 ' 0/ True ' "bnkrdariz" , "ba 
Eastern Districc^^^^rkansas" , "Bankr. E.D. Ark.", 1979, 0, True, "bankr 
Western District of Arkansas", "Bankr. W.D. Ark.", 1979, 0, True, "bankr 
Northern District of California", "Bankr. N.D. Cal.", 1979, 0, True, "ba 
Eastern District of California", "Bankr. E.D. Cal.", 1979, 0, True, "ban 
Central District of California", "Bankr. CD. Cal.", 1979, 0, True, "ban 
Southern District of California", "Bankr. S.D. Cal.", 1979, 0, True, "ba 
District of Colorado", "Bankr. D. Colo.", 1979, 0, True, "bankrdcolorado 
District of Connecticut", "Bankr. D. Conn.", 1979, 0, True, "bankrdconne 
District of Delaware", "Bankr. D. Del.", 1979, 0, True, "bankrddelaware" 
District of District of Columbia", "Bankr. D.D.C.", 1979, 0, True, "bank 
Northern District of Florida", "Bankr. N.D. Fla.", 1979, 0, True, "bankr 
Middle District of Florida", "Bankr. M.D. Fla.", 1979, 0, True, "bankrmd 
Southern District of Florida", "Bankr, S.D. Fla.", 1979, 0, True, "bankr 
Northern District of Georgia", "Bankr. N.D. Ga.", 1979, 0, True, "bankrn 
Middle District of Georgia", "Bankr. M.D. Ga.", 1979, 0, True, "bankrradg 
Southern District of Georgia", "Bankr. S.D. Ga.", 1979, 0, True, "bankrs 
District of Hawaii", "Bankr. D. Haw.", 1979, 0, True, " bankr dhawaii " , "b 
District of Idaho", "Bankr. D. Idaho", 1979, 0, True, "bnkrdidaho" , "ban 
Northern District of Illinois", "Bankr. N.D. 111.", 1979, 0, True, "bank 
Central District of Illinois", "Bankr. CD. 111.", 1979, 0, True, "bankr 
Southern District of Illinois", "Bankr. S.D. 111.", 1979, 0, True, "bank 
Northern District of Indiana", "Bankr. N.D. Ind.", 1979, 0, True, "bankr 
Southern District of Indiana", "Bankr. S.D. Ind.", 1979, 0, True, "bankr 
Northern District of Iowa", "Bankr. N.D. Iowa", 1979, 0, True, "bnkrndio 
Southern District of Iowa", "Bankr. S.D. Iowa", 1979, 0, True, "bnkrsdio 
District of Kansas", "Bankr. D. Kan.", 1979, 0, True, "bankrdkansas" , "b 
Eastern District of Kentucky", "Bankr. E.D. Ky.", 1979, 0, True, "bankre 
Western District of Kentucky", "Bankr. W.D. Ky.", 1979, 0, True, "bankrw 
Eastern District of Louisiana", "Bankr. E.D. La.", 1979, 0, True, "bankr 
Middle District of Louisiana", "Bankr. M.D. La.", 1979, 0, True, "bankrm 
Western District of Louisiana", "Bankr. W.D. La.", 1979, 0, True, "bankr 
District of Maine", "Bankr. D. Me.", 1979, 0, True, " bankr dma ine " , "bnkr 
District of Maryland", "Bankr. D. Md.'\ 1979, 0, True, "bankrdmaryland" , 
District of Massachusetts", "Bankr. D. Mass.", 1979, 0, True, "bankrdmas 
Eastern District of Michigan", "Bankr. E.D. Mich.", 1979, 0, True, "bank 
Western District of Michigan", "Bankr. W.D. Mich.", 1979, 0, True, "bank 
District of Minnesota", "Bankr. D. Minn.", 1979, 0, True, "bankrdminneso 
Northern District of Mississippi", "Bankr. N.D. Miss.", 1979, 0, True, " 
Southern District of Mississippi", "Bankr. S.D. Miss.", 1979, 0, True, " 
Eastern District of Missouri", "Bankr. E.D. Mo.", 1979, 0, True, "bankre 
Western District of Missouri", "Bankr. W.D. Mo.", 1979, 0, True, "bankrw 
District of Montana", "Bankr. D. Mont.", 1979, .0, True, "bankrdmontana" , 
District of Nebraska", "Bankr. D. Neb.", 1979, 0, True, "bankrdnebraska" 
District of Nevada", "Bankr. D. Nev.", 1979, 0, True, "bankrdnevada" , "b 
District of New Hampshire", "Bankr. D.N.H.", 1979, 0, True, "bankrdnewha 
District of New Jersey", "Bankr. D.N.J. ", 1979, 0, True, "bankrdnewjerse 
District of New Mexico", "Bankr. D.N.M.", 1979, 0, True, "bankrdnewmexic 
Northern District of New York", "Bankr. N.D.N.Y.", 1979, 0, True, "bankr 
Southern District of New York", "Bankr. S.D.N.Y.", 1979, 0, True, "bankr 
Eastern District of New York", "Bankr. E.D.N.Y.", 1979, 0, True, "bankre 



mPopulateJurisdictions - 5 

dnewyork" , "bnkredny" ) 

Set NewCourt = AddCourt (NewCourtl 
dnewyork" , "bnkrwdny" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
bankrednorthcarolina" , "bnkrednc" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of North Carolina", "Bankr. W.D.N.C 



Bankruptcy Court, Western District o^B°^< "Bankr. W.D.N.Y.", 1979, 0, True, "bankrw 
U.S. Bankruptcy Court, Eastern District of North Carolina", "Bankr. E.D.N.C.", 1979, 0, True, " 

1979, 0, True, " 

U.S. Bankruptcy Court, Middle District of North Carolina", "Bankr. M.D.N.C", 1979, 0, True, "b 

Bankr. D.N.D. " , 1979, 0, True, "bankrdnorthd 
"Bankr. N.D. Ohio", 1979, 0, True, "bnkrndoh 
U.S. Bankruptcy Court, Southern District of Ohio", "Bankr. S.D. Ohio", 1979, 0, True, "bnkrsdoh 



bankrwdnorthcarolina" , "bnkrwdnc" ) 

Set NewCourt = AddCourt {NewCourtGroup, 
ankrmdnorthcarolina" , "bnkrmdnc" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of North Dakota", 
akota" , "bnkrdnd" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Ohio" 



io", "bankrndoh", "bnkrndoh") 

Set NewCourt = AddCourt (NewCourtGroup, 
io" , "bankrsdoh" , "bnkrsdoh" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of Oklahoma", "Bankr. N.D. Okla.", 1979, 0, True, "ban 
krndoklahoma" , "bnkrndokla" , "bankrndok", "bnkrndok") 

Set NewCourt ~ AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Oklahoma", "Bankr. E.D. Okla 
redoklahoma" , "bnkredokla" , "bankredok" , "bnkredok" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Oklahoma", "Bankr. W.D. Okla.", 1979, 0 
rwdoklahoma" , "bnkrwdokla" , "bankrwdok" , "bnkrwdok" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Oregon 



1979, 0, True, "bank 
True , " bank 

1979, 0, True, " bankr do regon " , "bn 



Bankr . D . Or 

krdor " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Pennsylvania", "Bankr. E.D. Pa.", 1979, 0, True, "ba 
nkredpennsylvania" , "bnkredpa" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Middle District of Pennsylvania", "Bankr. M.D. Pa 



1979, 0, True, "ban 

U.S. Bankruptcy Court, Western District of Pennsylvania", "Bankr. W.D. Pa.", 1979, 0, True, "ba 
U.S. Bankruptcy Court, District of Rhode Island", "Bankr. D.R.I. ", 1979, 0, True, "bankrdrhodei 
U.S. Bankruptcy Court, District of South Carolina", "Bankr. D.S.C.", 1979, 0, True, "bankrdsout 

Bankr. D.S.D.", 1979, 0, True, " bankr southda 
1979, 0, True, "ban 
1979, 0, True, "bank 
1979, 0, True, "ban 



krmdpennsylvania" , "bnkrmdpa" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
nkrwdpennsylvania" , "bnkrwdpa" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
sland" , "bnkrdri" ) 

Set NewCourt = AddCourt (NewCourtGroup, 
hcarolina" , "bnkrdsc") 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, District of South Dakota", 



kota" , "bnkrdsd" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Tennessee", "Bankr. E.D. Tenn. 

"bnkredtn" ) 

"U.S. Bankruptcy Court, Middle District of Tennessee", "Bankr. M.D. Tenn." 
"bnkrmdtn" ) 

"U.S. Bankruptcy Court, Western District of Tennessee", "Bankr. W.D. Tenn. 
"bnkrwdtn") 



kredtennessee" , "bnkredtenn" , "bankredtn 

Set NewCourt = AddCourt (NewCourtGroup, 
rwdtennessee" , "bnkrmdtenn" , "bankrmdtn" , 

Sj£e NewCourt = AddCourt (NewCourtGroup , 
krwdtlj&iessee" , "bnkrwdtenn" , "bankrwdtn" , 

S^i NewCourt = AddCourt (NewCourtGroup , "t 
exas\ jj"bnkrndtex M , "bankrndtx" , "bnkrndtx" ) 

Sefi NewCourt = AddCourt (NewCourtGroup, "t 
exas'\ = "bnkredtex M , "bankredtx", "bnkredtx") 

S.e'f NewCourt = AddCourt (NewCourtGroup, "I 
exas'ypbnkrsdtex" , "bankrsdtx" , "bnkrsdtx" ) 

Set NewCourt = AddCourt (NewCourtGroup, "t 
exas f , Bb " bnkrwdtex " , " bankrwdtx " , " bnkrwdtx ■ ) 

NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Utah", "Bankr. D. Utah", 1979, 0, True, "bnkrdutah" , "bankrd 
ut" , ^fcnkrdut" ) 

Sit NewCourt = AddCourt (NewCourtGroup, "U.S. 
bnkrdvt") 

Set NewCourt = AddCourt (NewCourtGroup , "U.S. Bankruptcy Court, Eastern District of Virginia", 
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Bankruptcy Court, District of Vermont", "Bankr. D. Vt.", 1979, 0, True, " bankrdvermont " , " 

Bankr. E.D. Va. n , 1979, 0, True, "bankre 
dvir$i$ia" , "bnkredva" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Virginia", "Bankr. W.D. Va.", 1979, 0, True, "bankrw 
dvi r f i a i a " , " bnkrwdva " ) 

&g% NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Washington", "Bankr. E.D. Wash.", 1979, 0, True, "ba 
nkre<fwfcshington" , "bnkredwash" , "bankredwa" , "bankredwn" , "bnkredwn" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Washington", "Bankr. W.D. Wash.", 1979, 0, True, "ba 
nkrwl&ashington " , " bnkrwdwash " , " bankrwdwa " , " bankrwdwn " , " bnkrwdwn " ) 

9et NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Northern District of West Virginia", "Bankr. N.D.W. Va.", 1979, 0, True, 
"baffkrndwestvirginia" , "bnkrndwva", "bankrndwv", "bnkrndwv") 

Se£ NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Southern District of West Virginia", "Bankr, S.D.W. Va.", 1979, 0, True, 
"bankrsdwestvirginia" , "bnkrsdwva", "bankrsdwv", "bnkrsdwv" ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Eastern District of Wisconsin", "Bankr. E.D. Wis.", 1979, 0, True, "bank 
redwi scons in" , "bnkredwis" , " bankr edwi " , "bnkredwi " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, Western District of Wisconsin", "Bankr. W.D. Wis.", 1979, 0, True, "bank 
rwdwisconsin" , "bnkrwdwis" , "bankrwdwi " , "bnkrwdwi " ) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. Bankruptcy Court, District of Wyoming", "Bankr. D. Wyo.", 1979, 0, True, "dwyoming", "bnkr 
dwyo" , "bankrdwy" , "bnkrdwy" ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the First Circuit", "B.A.P. 1st Cir.", 1979, 0, True, "bankrappp 
lstcir", "bnkrappplstcir" , " bankr Istcir " , "bnkrlstcir " , "baplcir", "bapccalst", "bapccal", "bapcal", "bapcalst", "bapcirl", "bapf irstcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Second Circuit", "B.A.P. 2d Cir.", 1979, 0, True, "bankrappp 
2dcir", "bnkrappp2dcir" , "bankr2dcir " , M bnkr2dcir", "bankrapp2ndcir " , "bap2cir", "bapcca2d" , "bapcca2", "bapca2", "bapca2d", "bapcir2", "ba 
psecondcir", "bap2ndcir", "bapcca2nd", "bapca2nd") 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Third Circuit", "B.A.P. 3d Cir." 
dcir", "bnkrappp3dcir" , "bankr3dcir" , "bnkr3dcir", "bankrapp3rdcir " , "bap3cir", "bapcca3d", "bapcca3", "bapca3" 
thirdcir" , "bap3rdcir" , "bapcca3rd" , "bapca3rd" ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Fourth Circuit", "B.A.P. 4th Cir 
p4thcir", "bnkrappp4thcir " , "bankr4thcir " , "bnkr4thcir " , "bap4cir", "bapcca4th", "bapcca4", "bapca4", "bapca4th 



1979, 0, True, "bankrappp3 
"bapca3d", "bapcir3", "bap 



1979, 0, True, "bankrapp 
"bapcir4", "bapfourthcir" 



) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Fifth Circuit", "B.A.P. 5th Cir.", 
5thcir", "bnkrapppS their" , "bankrSthcir " , "bnkrSthcir " , "bapScir", "bapccaSth" , "bapccaS", "bapcaS", "bapcaSth", 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Sixth Circuit", "B.A.P. 6th Cir.", 
6thcir", "bnkrappp6thcir " , "bankr6thcir " , "bnkr6thcir " , "bap6cir", "bapcca6th", "bapcca6", "bapca6", M bapca6th", 
Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Seventh Circuit", "B.A.P. 7th Cir. 



"bankr7thcir " 



"bnkr7thcir" , M bap7cir" , "bapcca7th" , "bapcca7" 



1979, 0, True, "bankrappp 
"bapcir5", "bapf if their" ) 
1979, 0, True, "bankrappp 
u bapcir6", "bapsixthcir" ) 
", 1979, 0, True, "bankrap 
bapca7" , "bapca7th", "bapcir7", "bapseventhci 

1979, 0, True, "bankrapp 
bapcir8", "bapeighthcir " 



pp7 the i r " , " bnkr appp7 the i r " 
r") 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Eighth Circuit", "B.A.P. 8th Cir 
p8thcir", "bnkrappp8thcir " , "bankr8thcir " , "bnkr8thcir " , "bap8cir", "bapcca8th", "bapcca8", "bapca8", "bapca8th 
) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Ninth Circuit", "B.A.P. 9th Cir.", 1979, 0, True, "bankrappp 
9thcir", "bnkr appp9 their" , "bankr9thcir " , "bnkr9thcir " , "bap9cir", "bapcca9th", "bapcca9", "bapca9 " , "bapca9th", H bapcir9", "bapninthcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Tenth Circuit", "B.A.P. 10th Cir.", 1979, 0, True, "bankrapp 
plO their", " bnkr appp 10 their " , "bankrlO their " , "bnkr 10 their " , "baplOcir", " bapccal 0 th " , "bapccalO", "bapcalO", " bapcal 0 th " , "bapcirlO", "bap 
tenthcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the Eleventh Circuit", "B.A.P. 11th Cir.", 1979, 0, True, "bankr 
apppll their" , " bnkr appp 11 the i r " , "bankrll their " , "bnkrl 1 their " , "bapllcir", "bapccal 1th" , "bapccall", "bapcall", "bapcallth" , "bapcirll", " 
bapeleventhcir " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Bankruptcy Appellate Panel for the D.C. Circuit", "B.A.P. D.C. Cir.", 1979, 0, True, "bankrappp 



mPopulateJurisdictions - 6 

dccir" , "bnkrapppdccir" , "bankrdccjl 
NewCour tGroup . NonParal lelRepo: 



"bapccadc" , "bapcirdc" , "bapdis 



iacir " ) 



Set NewCourtGroup = AddCourtGroup (NewJur, "Judicial Panel on Multidistrict Litigation") 

Set NewCourt = AddCourt {NewCourtGroup, "Judicial Panel on Multidistrict Litigation", "J.P.M.L.", 1968, 0, True) 
Set NewCourt = AddCourt (NewCourtGroup, "Special Court, Regional Rail Reorganization Act", "Regional Rail Reorg. Ct. 
NewCourtGroup . NonParal lelReporters . Add 1 



A?3 



1973, 0, True) 



Set NewCourtGroup = AddCourtGroup(NewJur, "Tax Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Tax Court", "T.C.", 1942, 0, True, "taxct") 
Set NewCourt = AddCourt (NewCourtGroup, "Board of Tax Appeals", "B.T.A.", 1924, 1942, 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 2 



True, "bdtaxapp" 



" boardtxapp" ) 



Set NewCourtGroup = AddCourtGroup(NewJur, "United States Court of Veterans Appeals") 
Set NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Veterans Appeals", "Vet. App.", 
NewCourtGroup . NonParallelReporters . Add 1 



1988, 0, True, "vetctapp", "vetappct") 



Set NewCourtGroup = AddCourtGroup(NewJur, "United States Court of Appeals for the Armed Forces") 



Set NewCourt = AddCourt (NewCourtGroup, 
appaf ■ , "ctapparmedf " , "appctarmedforces" , 
Set NewCourt = AddCourt (NewCourtGroup, 
NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 



"U.S. Court of Appeals for the Armed Forces", "C.A.A.F. 
"appctaf ") 

"U.S. Court of Military Appeals", "CM. A.", 1951 



1975, 0, True, "ctapparmedf orces" , "ct 
1975, True, "ctmilapp", "ctmilitaryapp" ) 



Set NewCourtGroup = AddCourtGroup (NewJur, "Courts of Military Review" 



Set NewCourt = AddCourt (NewCourtGroup, 
Set NewCourt = AddCourt (NewCourtGroup, 
Set NewCourt = AddCourt (NewCourtGroup, 
Set NewCourt = AddCourt (NewCourtGroup, 
Set NewCourt = AddCourt (NewCourtGroup, 
NewCourtGroup . NonParal lelReporters . Add 
NewCourtGroup . NonParal lelReporters . Add 



"Courts of Military Review" 
"Courts of Military Review" 
"Courts of Military Review" 
"Courts of Military Review" 
"Boards of Review", "A.B.R. 
1 
2 



) 

A.C.M.R.", ( 
A.F.C.M.R. " , 
C.G.C.M.R. " , 
N-M.C.M.R. " , 
0, 0, True) 



, 0, 
0, 
0, 
0, 



True) 
0, True) 
0, True) 
0, True) 



End Sub 

Private Sub AddFederalOldCircuitCourts ( ) 



Dim NewCourt As cCourt 

Erna NewCourtGroup As cCour tGroup 

iSnii bcCourt As cCourt 

strFullName As String 



%t NewCourtGroup = AddCourtGroup (mbcJurisdictions { "Federal" ) , "Circuit Courts") 

4<ff Each bcCourt In mbcJurisdictions ( "Federal" ). Courts 
~ r * If bcCourt. CourtGroup. FullName = "District Courts" Then 

f«= strFullName = "U.S. Circuit Court" & Right $ (bcCourt . FullName, Len (bcCourt. FullName) - 19) 

Set NewCourt = AddCourt (NewCourtGroup, strFullName, "C.C." & bcCourt . AbrvName , 0, 1912, True) 
W End If 
Next bcCourt 

NewCourtGroup . NonParallelReporters . Add 1 
End Sub 

bar 

Private Sub AddAlaO 

SI& NewJur As cJurisdiction 

yirn NewCourtGroup As cCourtGroup 

him NewCourt As cCourt 

lei NewJur = AddJuri sdict ion ( "Alabama" , "Ala.", "al") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Alabama Supreme Court", "", 1840, 0, False, "suprct", "supct", "set") 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Civil Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Alabama Court of Civil Appeals", "Civ. App.", 1969, 0, False, "appciv") 

Set NewCourt = AddCourt (NewCourtGroup, "Alabama Court of Criminal Appeals", "Crim. App.", 1969, 0, False, "appcrim") 

Set NewCourt = AddCourt (NewCourtGroup, "Alabama Court of Appeals", "Ct. App.", 1910, 1968, False, "appct", "app") 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddAlaska ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction( "Alaska" , "Alaska", "ak") 
Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Alaska Supreme Court", * " , 1960, 0, False, "suprct", "supct", "set") 
NewCour tGroup. NonParal lelReporters .Add 2 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Alaska Court of Appeals", "Ct. App.", 1980, 0, False, "appct", "app") 
NewCourtGroup . NonParal lelReporters . Add 2 

Set NewCourtGroup - AddCourtGroup (NewJur , "District Courts of Alaska") 

Set NewCourt = AddCourt (NewCourtGroup, "District Courts of Alaska", "D. Alaska", 1884, 1959, True, "dal") 
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NewCourtGroup. ParallelReporters 
NewCourtGroup . ParallelReporters 1 
NewCourtGroup. ParallelReporters 



m • •• 



NewCourtGroup. NonParallelReporters . Add 2 

NewCourtGroup. NonParal lelReporters . Add 1 

NewCourtGroup . NonParal lelReporters . Add 3 

Set NewCourtGroup = AddCou r t Group (New Jur, "United States District Courts") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Courts for California" , "D. Cal . " , 1867, 1884, True) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Courts for Oregon", "D. Or.-, 1867, 1884, True) 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Courts of Washington", "D. Wash.", 1867, 1884, True) 

NewCourtGroup. ParallelReporters. Add 2 
NewCourtGroup . ParallelReporters . Add 3 

NewCourtGroup . NonParal lelReporters . Add 1 
NewCourtGroup . NonParallelReporters . Add 2 

End Sub 

Private Sub AddArizO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Arizona" , "Ariz.", "az") 
Set NewCourtGroup = AddCour t Group (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Arizona Supreme Court", "", 1866, 0, False, "suprct" , "supct", "set") 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCour tGroup (NewJur , "Court of Appeals") 

S^fl NewCourt = AddCourt (NewCourtGroup, "Arizona Court of Appeals", "Ct. App.", 1965, 0, False, "appct", "app") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
IjeftCour tGroup. NonParal lelReporters .Add 1 

End Sub 

Priv^fc Sub AddArkO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

§e% NewJur = AddJurisdiction( "Arkansas" , "Ark.", "ar") 
?i -: 

|§& NewCourtGroup = AddCour tGroup (NewJur , "Supreme Court") 

§e± NewCourt = AddCourt (NewCourtGroup, "Arkansas Supreme Court", "", 1837, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

$f$wCour tGroup. NonParal lelReporters .Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCour tGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Arkansas Court of Appeals", "Ct. App.", 1979, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

End Sub 

Private Sub AddCalO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "California" , "Cal.", "ca") 
Set NewCourtGroup = AddCour tGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "California Supreme Court", "", 1850, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. Paral lelReporters. Add 2 
NewCourtGroup. ParallelReporters. Add 3 

NewCourtGroup . NonParal lelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 1 

NewCourtGroup .NonParallelReporters .Add 3 

NewCourtGroup .NonParallelReporters .Add 4 



Set NewCourtGroup = AddC our tGroup (NewJur , "Court of Appeal") 

Set NewCourt = AddCourt (NewCourtGroup, "California Court of Appeals", "Ct. App.", 1905, 0, False, "appct", "app") 

Set NewCourt = AddCourt (NewCourtGroup, "California District Court of Appeal", "Dist. Ct. App.", 1905, 0, False, "distappct " ) 
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NewCourtGroup . ParallelRepor ter|^^^ 1 
NewCourtGroup. ParallelRepor ter^^^B 3 

NewCourtGroup . NonParallelReporters . Add 
NewCourtGroup . NonParallelReporters . Add 

Set NewCourtGroup = AddCourtGroup (NewJur, "Appellate Departments of the Superior Court") 

Set NewCourt = AddCourt (NewCourtGroup, "California Appellate Departments of the Superior Court", "App. Dep't Super. Ct.", 1929, 0, Fals 

e) 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters. Add 3 

NewCourtGroup. NonParallelReporters .Add 3 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddColoO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Colorado" , "Colo.", "co") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Colorado Supreme Court", "", 1864, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup(NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Colorado Court of Appeals", "Ct. App.", 1891, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
ItewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 3 

End §ub 

Privattfi Sub AddConn ( ) 

Dim NewJur As cJurisdiction 

0im NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Sejb NewJur = AddJurisdiction ( "Connecticut " , "Conn.", "ct") 
Set: NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

$ef: NewCourt = AddCourt (NewCourtGroup, "Connecticut Supreme Court", "", 1789, 0, False, "suprct", "supct", "set") 

fleWCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

awCourtGroup. NonParallelReporters .Add 2 
IwCourtGroup .NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Appellate Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Connecticut Appellate Court", "App. Ct.", 1983, 0, False, "ctapp", "app") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Superior Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Connecticut Superior Court", "Super. Ct . " , 1935, 0, False, "supct") 
Set NewCourt = AddCourt (NewCourtGroup, "Connecticut Court of Common Pleas", "CP.", 1935, 0, False) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup .NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur, "Circuit Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Connecticut Circuit Court", "Cir. Ct.", 1961, 0, False) 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddDel ( ) 




Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 
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Dim NewCourt As cCourt 
Set NewJur = AddJur i s diet ion ( "Del 



• • 

>el^PEe", "Del.", "de") 



Set NewCourtGroup = AddCourtGroup {NewJur , "Supreme Court") 

Set NewCourt = AddCourt {NewCourtGroup, "Delaware Supreme Court", " " , 1792, 0, False, "suprct", "supct", "set") 

NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Chancery") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Court of Chancery", "Ch.", 1814, 0, False) 



NewCourtGroup. ParallelReporters. Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Superior Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Superior Court", "Super, Ct.", 1951, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Superior Court and Orphans' Court", "Super. Ct . & Orphans' Ct.", 1951, 0, False) 



NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Family Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Delaware Family Court", "Fam. Ct.", 1977, 0, False) 
NewCourtGroup . NonParallelReporters . Add 2 



End Sub 



Private Sub AddDCO 

DEkai NewJur As cJurisdiction 

Dxm NewCourtGroup As cCourtGroup 

D^m NewCourt As c Court 

§e| NewJur = AddJur isdict ion ( "District of Columbia", "D.C.") 
See NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

;sM£ NewCourt = AddCourt (NewCourtGroup, "District of Columbia Court of Appeals", '" " , 1943, 0, False, "ctapp", "app" , "appct" , "app") 
Sat NewCourt = AddCourt (NewCourtGroup, "District of Columbia Municipal Court of Appeals", "", 1943, 0, False, "munctapp", "munappct") 
r^evC our t Group . NonParallelReporters . Add 2 

Set NewCourtGroup = AddCourtGroup {NewJur, "United States Court of Appeals for the District of Columbia") 

S^t NewCourt = AddCourt (NewCourtGroup, "U.S. Court of Appeals for the District of Coumbia Circuit", "Cir.", 0, 0, False, "cca", "cir", 

Set NewCourt = AddCourt (NewCourtGroup, "Supreme Court of the District of Columbia", "", 1841, 1942, False) 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 3 

End 3ab 

Priv4te Sub AddFlaO 

E>im NewJur As cJurisdiction 

efm NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur i sdict ion ( "Florida" , "Fla.", "fl") 



Set NewCourtGroup ~ AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Florida Supreme Court", "", 1846, 0, False, "suprct", "supct", "set") 
NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 



NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "District Court of Appeal") 

Set NewCourt = AddCourt (NewCourtGroup, "Florida District Court of Appeal", "Dist. Ct. App.", 1957, 0, False, "distappct") 



NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 3 



Set NewCourtGroup = AddCourtGroup (NewJur , "Circuit Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Florida Circuit Court", "Cir. Ct.", 0, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Florida County Court", "County Ct.", 0, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Florida Public Service Commission", "P.S.C.", 0, 0, False) 



NewCourtGroup. NonParallelReporters .Add 3 
NewCourtGroup. NonParallelReporters .Add 4 



End Sub 



Private Sub AddGa ( ) 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur isdict ion { "Georgia" , "Ga." ) 
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G^^^wewJui^Vsupreme Court") ^^^B 
:ou^BPoup, "Georgia Supreme Court", , 1846, 0, Fa^Mr "suprct " 



Set NewCourtGroup = AddCourti 

Set NewCourt = AddCourt (NewCoiJ^BFoup, "Georgia Supreme Court", " " , 1846, 0, Fa^BF " suprct " , "supct", "set") 



NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup. ParallelReporters .Add 2 



NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup(NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Georgia Court of Appeals", "Ct. App.", 1907, 0, False, "appct", "app") 



NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 



End Sub 



Private Sub AddHawO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Hawaii" , "Haw.", "hi") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Hawaii Supreme Court", "", 1847, 0, False, "suprct", "supct", "set") 



NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Intermediate Court of Appeals") 

NewCourt = AddCourt (NewCourtGroup, "Hawaii Intermediate Court of Appeals", "Ct. App.", 1980, 0, False, "appct", "app") 

NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCour tGroup.NonParal lelRepor ters. Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End Sjio 

Private Sub AddldahoO 

Djtffi NewJur As cJurisdiction 

Dam NewCourtGroup As cCourtGroup 

aim NewCourt As cCourt 

NewJur = AddJurisdiction ( "Idaho" , "Idaho", "id") 

til 

Set NewCourtGroup - AddCourtGroup (NewJur, "Supreme Court") 

S^lt NewCourt - AddCourt (NewCourtGroup, "Idaho Supreme Court", "", 1866, 0, False, "suprct", "supct", "set") 

lie wC our t Group. ParallelReporters .Add 1 
IgewCourt Group . ParallelReporters . Add 2 

l|evCourt Group . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Idaho Court of Appeals", "Ct. App.", 1982, 0, False, "appct", "app") 



NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters .Add 2 



NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



End Sub 



Private Sub AddlllO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Illinois" , "111.", "il") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Illinois Supreme Court", "", 1819, 0, False, "suprct", "supct", "set") 



NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 
NewCourtGroup . ParallelReporters . Add 3 



NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Appellate Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Illinois Appellate Court", "App. Ct.", 1877, 0, False, "ctapp", "app") 



NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 
NewCourtGroup . ParallelReporters .Add 3 
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i^^^Add 
rlBF Add 1 



NewCourtGroup. NonParal lelRepo: 
NewCourtGroup.NonParallelRepor 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Claims") 

Set NewCourt = AddCourt (NewCourtGroup, "Illinois Court of Claims", "Ct. CI.', 1889, 0, False) 
NewCourtGroup . NonParal lelReporters . Add 1 



End Sub 



Private Sub AddlndO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdict ion ( " Indiana" , "Ind.", "in") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Indiana Supreme Court", "", 1817, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup. Paral lelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Indiana Court of Appeals", "Ct. App.", 1890, 0, False, "appct", "app") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. Paral lelReporters. Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 



End Sub 



Private Sub Addlowat) 

Q 

D ; ya NewJur As cJurisdiction 

dJGI NewCourtGroup As cCourtGroup 

D^Lra NewCourt As cCourt 

Sef NewJur = AddJurisdic t ion (" Iowa" , "Iowa", "ia") 

4|| NewCourtGroup - AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Iowa Supreme Court", " " , 1855, 0, False, "suprct", "supct", "set") 

Set 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

:£= 
sips 

NewCourtGroup. NonParal lelReporters .Add 2 
ESewCour tGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

£kt NewCourt = AddCourt (NewCourtGroup, "Iowa Court of Appeals", "Ct. App.", 1977, 0, False, "appct", "app") 
]|<jifrCour tGroup . NonParal lelReporters . Add 2 

End Sub 

Private Sub AddKanO 

©ijn NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur isdict ion ( "Kansas" , "Kan.", "ks") 



Set NewCourtGroup = AddCourtGroup {NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Kansas Supreme Court", "", 1858, 0, False, "suprct", "supct", "set") 



NewCourtGroup. Paral lelReporters. Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Kansas Court of Appeals", "Ct. App.", 1895, 0, False, "appct", "app") 



NewCourtGroup. Paral lelReporters. Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 



End Sub 



Private Sub AddKyO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction( "Kentucky" , "Ky.") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Kentucky Supreme Court", "", 1976, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Kentucky Court of Appeals", " " , 1785, 1975, False, "appct", "app") 
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NewCourtGroup . Paral lelRepor ter^^^fc 1 
NewCourtGroup . ParallelReporter^^^B 2 

NewCourtGroup . NonParal lelRepor ter s . Add 
NewCourtGroup .NonParallelReporters .Add 
NewCourtGroup .NonParal lelRepor ters .Add 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Kentucky Court of Appeals", "Ct. App.", 1976, 0, False, "appct", "app") 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup. NonParal lelRepor ters .Add 3 

End Sub 

Private Sub AddLaO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction { "Louisiana" , "La.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Louisiana Supreme Court", "", 1813, 0, False, "suprct", "supct", "set") 
Set NewCourt = AddCourt (NewCourtGroup, "Superior Court of Louisiana", "", 1809, 1812, False) 

Set NewCourt = AddCourt (NewCourtGroup, "Superior Court of the Territory of Orleans", "Orleans", 1809, 1812, True) 

NewCourtGroup . Paral lelRepor ters .Add 1 
NewCourtGroup . Paral lelRepor ter s . Add 2 

NewCourtGroup .NonParallelReporters .Add 2 
NewCourtGroup. NonParal lelRepor ters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Louisiana Court of Appeal", "Ct. App.", 1881, 0, False, "appct" , "app") 

NewCourtGroup . Paral lelRepor ters .Add 1 
NewCourtGroup. Paral lelRepor ters. Add 2 

JiSS. 

N^fC our tGroup .NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sui 

\\ 

Privet! Sub AddMeO 

Dim NewJur As cJurisdiction 

0fm NewCourtGroup As cCourtGroup 

0im NewCourt As cCourt 

4§| NewJur = AddJurisdiction ( "Maine" , "Me.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Judicial Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Maine Supreme Judicial Court", "", 1820, 0, False, "suprct", "supct", "set" 
hzt 

Kf | wC our tGroup. ParallelReporters.Add 1 
llljjtfCour tGroup . Paral lelRepor ters . Add 2 

is? 

NewCourtGroup. NonParallelReporters .Add 2 
MewCour tGroup. NonParal lelRepor ters .Add 1 

f c i 

End Sub 

Private Sub AddMdO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Maryland" , "Md.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Maryland Court of Appeals", " 1770, 0, False, "appct", "app") 

NewCourtGroup . Paral lelRepor ters .Add 1 
NewCourtGroup . Paral lelRepor ters .Add 2 

NewCourtGroup. NonParal lelRepor ters .Add 2 
NewCourtGroup. NonParal lelRepor ters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Special Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Maryland Court of Special Appeals", "Ct. Spec. App.", 1967, 0, False) 

NewCourtGroup. Paral lelRepor ters .Add 1 
NewCourtGroup. Paral lelRepor ters .Add 2 

NewCourtGroup . NonParal lelRepor ters . Add 2 
NewCourtGroup . NonParal lelRepor ters . Add 1 

End Sub 

Private Sub AddMass ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Massachusetts" , "Mass.", "ma") 




Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Judicial Court") 
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Set NewCourt = AddCourt (NewCourt^^^fc, "^^Bichusetts Supreme Judicial Court", ^^Mj False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters 
NewCourtGroup . ParallelReporters . Add 2 



NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Appeals Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Massachusetts Appeals Court", "App. Ct . " , 1972, 0, False, "ctapp" , "app") 



NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup. ParallelReporters. Add 2 * 

NewCourtGroup , NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "District Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Massachusetts District Court", "Dist. Ct.", 1936, 0, False) 



NewCourtGroup , Paral lelRepor ters . Add 1 
NewCourtGroup . ParallelReporters . Add 3 



End Sub 



Private Sub AddMichO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Michigan" , "Mich.", "mi") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Michigan Supreme Court", "", 1805, 0, False, "suprct", "supct", "set") 



NewCourtGroup. Paral lelRepor ters. Add 1 
NewCourtGroup. ParallelReporters .Add 2 



Nj&fcCourtGroup . NonParallelReporters . Add 2 
rfjgfcourt Group .NonParallelReporters . Add 1 

SL^ts NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Sei NewCourt = AddCourt (NewCourtGroup, "Michigan Court of Appeals", "Ct. App.", 1965, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
I^e^CourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
N^yc our t Group . NonParallelReporters . Add 1 

§§£ NewCourtGroup = AddCourtGroup (NewJur , "Court of Claims") 

Set NewCourt = AddCourt (NewCourtGroup, "Michigan Court of Claims" , "Ct. CI,", 1938, 1942, False) 
BewCourtGroup . NonParallelReporters . Add 1 

End Sab 

rtj 

Priv§££ Sub AddMinnO 

Dim NewJur As cJurisdiction 

NewCourtGroup As cCourtGroup 
Bi*n NewCourt As cCourt 

§e£ NewJur = AddJurisdiction ( "Minnesota" , "Minn.", "mn") 
Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Minnesota Supreme Court", "", 1851, 0, False, "suprct", "supct", "set") 



NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt - AddCourt (NewCourtGroup, "Minnesota Court of Appeals", "Ct. App.", 1983, 0, False, "appct", "app") 
NewCourtGroup . NonParallelReporters . Add 2 



End Sub 



Private Sub AddMissO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction { "Mississippi " , "Miss.", "ms") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Mississippi Supreme Court", "", 1818, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters. Add 1 
NewCourtGroup . Paral lelRepor ter s . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParal lelRepor ter s . Add 1 
NewCourtGroup. NonParallelReporters .Add 3 



End Sub 



Private Sub AddMoO 
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Dim NewJur As cJurisdiction 
Dim NewCourtGroup As cCourtGrou] 
Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction( "Missouri " , "Mo. 1 



" mo" ) 



Set NewCourtGroup = AddCou rt Group (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Missouri Supreme Court", " 

NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Missouri Court of Appeals" 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

End Sub 

Private Sub AddMont ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



1821, 0, False, "suprct" , "supct" 



"set" ) 



"Ct. App.", 1876, 0, False, "appct" 



"app") 



Set NewJur = AddJurisdiction ( "Montana" 



"Mont . " , "mt" ) 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 
Set NewCourt = AddCourt (NewCourtGroup, "Montana Supreme Court" 



1868, 0, False, "suprct", "supct", "set") 



NewCourtGroup . ParallelReporters . Add 1 
NjewCourt Group. ParallelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
N/eTtfCourt Group. NonParal lelReporters .Add 1 
NewCourtGroup. NonParallelReporters .Add 3 

^_ § 

End Sub 

U% 

Private Sub AddNebO 

M 

Dam NewJur As cJurisdiction 

Eb#t NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Nebraska" , "Neb. 



"ne" ) 



NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 
Set NewCourt = AddCourt (NewCourtGroup, "Nebraska Supreme Court" 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NgwCour tGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 



1860, 0, False, "suprct", "supct" 



"set" ) 



Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Nebraska Court of Appeals", 



"Ct. App.", 1992, 0, False, "appct", "app") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

End Sub 

Private Sub AddNevO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Nevada" , "Nev. 



"nv") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 
Set NewCourt = AddCourt (NewCourtGroup, "Nevada Supreme Court", 

NewCourtGroup. ParallelReporters. Add 1 
NewCourtGroup. ParallelReporters. Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 



1865, 0, False, "suprct", "supct", "set") 



End Sub 

Private Sub AddNH ( ) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "New Hampshire", "N.H.", "nh") 
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tG^fl^^lewJur , ^P^reme ^^^^ 

Coa^^Foup, "New Hampshire Supreme Court", "", 1816 ( ^j^^alse ( ^sup 



Set NewCourtGroup = AddCourtq ^^^^ 

Set NewCourt = AddCourt (NewCo^^^Foup, "New Hampshire Supreme Court", "", 1816,^|^FFalse, "Suprct", "supct", "set") 

NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup . Paral lelRepor ters . Add 2 



NewCourtGroup . NonParal lelRepor ters . Add 2 
NewCourtGroup. NonParal lelRepor ters .Add 1 



End Sub 



Private Sub AddNJO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction { "New Jersey", "N.J.") 



Set NewCourtGroup = AddCourtGroup {NewJur, "Supreme Court") 

Set NewCourt = AddCourt {NewCourtGroup, "New Jersey Supreme Court", "", 1790, 0, False) 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParal lelRepor ters .Add 2 
NewCourtGroup . NonParal lelRepor ters . Add 1 



Set NewCourtGroup = AddCourtGroup {NewJur, "Superior Court") 



Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 
Set NewCourt 



AddCourt {NewCourtGroup , 
AddCourt (NewCourtGroup, 
AddCourt {NewCourtGroup , 
AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 
AddCourt (NewCourtGroup, 



"New Jersey Superior Court", "Super. 

"New Jersey Superior Court", "Super. 

"New Jersey Superior Court", "Super. 

"New Jersey Court of Chancery", "Ch. 

"New Jersey Supreme Court", "Sup. Ct 



Ct. App. Div.", 1790, 0, False) 
Ct. Ch. Div.", 1790, 0, False) 
Ct. Law Div.", 1790, 0, False) 
', 1790, 0, False) 

", 1790, 0, False, "suprct", "supct" 



"New Jersey Perogative Court", "Perog. Ct.", 1790, 0, False) 



NewCourtGroup , ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

ifswCourtGroup . NonParal lelRepor ters .Add 2 
NewCourtGroup .NonParal lelRepor ters .Add 1 

\- 

Set NewCourtGroup = AddCourtGroup (NewJur, "County Court") 

Set. NewCourt = AddCourt (NewCourtGroup, "New Jersey County Court", "County Ct.", 1790, 0, False) 

fillrCourt Group . ParallelReporters . Add 1 
NewCourt Group . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
sj|$*CourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Tax Court") 

Set NewCourt = AddCourt (NewCourtGroup, "New Jersey Tax Court", "Tax Ct.", 1979, 0, False) 
JJevCourtGroup . NonParallelReporters .Add 1 

End 

Priv§£3e Sub AddNM { ) 

£>im NewJur As cJurisdiction 

jfrijm NewCourtGroup As cCourtGroup 

jfcrfm NewCourt As c Court 

Set NewJur - AddJurisdiction ( "New Mexico", "N.M.") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "New Mexico Supreme Court", "", 1883, 0, False, "suprct", "supct", "set") 



NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParal lelRepor ters . Add 2 
NewCourtGroup .NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "New Mexico Court of Appeals", "Ct. App.", 1967, 0, False, "appct", "app") 



NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup, Paral lelRepor ters. Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParal lelRepor ters . Add 1 

End Sub 



Private Sub AddNY ( ) 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "New York", "N.Y.") 



Set NewCourtGroup = AddCourtGroup {NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "New York Court of Appeals", " " , 1847, 0, False, "ctapp", "app", "appct", "app 



NewCourtGroup . ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 
NewCourtGroup . ParallelReporters . Add 3 



mPopulateJurisdictions - 16 

NewCourtGroup . NonParal lelRepOj^^^L Add 2 
NewCour tGroup . NonParal lelRepo^^^B Add 1 

NewCourtGroup . NonParal lelRepor^HR Add 3 



• # 



153 



Set NewCourtGroup = AddCourtGrouptNewJur, "Court for the Correction of Errors") 
Set NewCourt = AddCourt (NewCourtGroup, "New York Court for the Correction of Errors", "" 
Set NewCourt = AddCourt (NewCourtGroup, "New York Supreme Court of Judicature", "Sup. Ct. 
NewCourtGroup . NonParal lelReporters . Add 1 



1791, 1847, False) 
, 1791, 1847, False, 



"suprct" , "supct" 



"set") 



Set NewCourtGroup = AddCourtGrouptNewJur, "Court of Chancery") 

Set NewCourt = AddCourt (NewCourtGroup, "New York Court of Chancery", "Ch.", 1814, 1847, False) 
NewCourtGroup . NonParal lelReporters . Add 1 



Set NewCourtGroup = AddCourtGrouptNewJur, "Supreme Court, Appellate Division") 

Set NewCourt = AddCourt tNewCourtGroup, "New York Supreme Court, Appellate Division", "App. Div.", 1847, 0, False, "sctappdiv", "supctap 
pdiv" ) 



NewCourtGroup . ParallelReporters . Add 3 
NewCourtGroup . Paral lelReporters . Add 4 

NewCourtGroup. NonParallelReporters . Add 4 
NewCourtGroup . NonParallelReporters . Add 3 



Set NewCourtGroup = AddCourtGrouptNewJur, "Other lower courts") 

Set NewCourt = AddCourt (NewCourtGroup, "New York other lower courts", "App. Term.", 1888, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "New York other lower courts", "Sup. Ct.", 1888, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "New York other lower courts", "Ct. CI.", 1888, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "New York other lower courts", "Civ. Ct.", 1888, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "New York other lower courts", "Crim. Ct.", 1888, 0, False) 

Set NewCourt = AddCourt (NewCourtGroup, "New York other lower courts", "Fam. Ct.", 1888, 0, False) 



NewCourtGroup . ParallelReporters . Add 3 
NewCourtGroup . ParallelReporters . Add 4 

NewCourtGroup . NonParal lelReporters . Add 4 
NewCourtGroup . NonParal lelReporters . Add 3 

Set NewCourtGroup = AddCourtGrouptNewJur, "Other 
Set NewCourt = AddCourt (NewCourtGroup, "New York 
S^t NewCourt = AddCourt (NewCourtGroup, "New York 
£ef NewCourt = AddCourt (NewCourtGroup, "New York 
% NewCourt = AddCourt (NewCourtGroup, "New York 
t NewCourt = AddCourt (NewCourtGroup, "New York 
9e_t NewCourt = AddCourt (NewCourtGroup, "New York 
NewCourtGroup . NonParallelReporters . Add 3 

Sj 

End 

ys 

Private Sub AddNCO 

sua 

NewJur As cJurisdiction 
u$ji NewCourtGroup As cCour tGroup 
Dj&a NewCourt As cCourt 

S%t NewJur = AddJurisdiction ( "North Carolina", "N.C.", "ncarolina") 

S^f NewCourtGroup = AddCourtGrouptNewJur, "Supreme Court") 

Sj4| NewCourt = AddCourt (NewCourtGroup, "North Carolina Supreme Court", "", 1778, 0, False, "suprct", "supct", "set") 

NawCour tGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters -Add 2 

r{|wCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

5 ■ 

Set NewCourtGroup = AddCourtGrouptNewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "North Carolina Court of Appeals", "Ct. App.", 1968, 0, False, "appct", "app") 



lower courts before 1888") 
other lower courts before 1888" 
other lower courts before 1888" 
other lower courts before 1888" 
other lower courts before 1888" 
other lower courts before 1888" 
other lower courts before 1888" 



"App. Term.", 1844, 1887, False) 
"Sup. Ct.", 1844, 1887, False) 
"Ct. CI.", 1844, 1887, False) 
"Civ. Ct.", 1844, 1887, False) 
"Crim. Ct.", 1844, 1887, False) 
"Fam. Ct.", 1844, 1887, False) 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCour tGroup. NonParal lelReporters .Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 



End Sub 



Private Sub AddNDt) 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "North Dakota", "N.D.", "ndakota") 



Set NewCourtGroup = AddCourtGrouptNewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "North Dakota Supreme Court", "", 1890, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup, ParallelReporters. Add 2 

NewCour tGroup. NonParal lelReporters. Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 



Set NewCourtGroup = AddCourtGrouptNewJur, "Supreme Court of Dakota") 

Set NewCourt = AddCourt (NewCourtGroup, "Supreme Court of Dakota", "Dakota", 1867, 1889, True) 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 
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t^^fc^NewJur ,^^irt Appeals Dakota") 

ColiBProup, 'Court of Appeals of North Dakota", "Ct^i^^ " , 1987, C 



JS1 



Set NewCourtGroup = AddCourt ^ 

Set NewCourt = AddCourt (NewCoTiW^r'oup, 'Court of Appeals of North Dakota", "CtT^i^j. " , 1987, 0, False, "appct", "app") 
NewCourtGroup. NonParallelReporters .Add 2 

End Sub 

Private Sub AddOhioO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction{ "Ohio" , "Ohio", "oh") 

Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Ohio Supreme Court", "", 1821, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup . NonParal lelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup {NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Ohio Court of Appeals", "Ct. App.", 1913, 0, False, "appct", "app") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParal lelReporters .Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Other law courts") 

Set NewCourt = AddCourt (NewCourtGroup, "Other law courts", 1840, 0, False) 

NewCourtGroup . NonParal lelReporters - Add 1 

NewCourtGroup . NonParal lelReporters . Add 3 

NewCourtGroup. NonParal lelReporters. Add 4 

NewCourtGroup . NonParallelReporters . Add 5 

NewCourtGroup. NonParallelReporters .Add 6 

NewCourtGroup . NonParal lelReporters . Add 7 

NewCourtGroup .NonParallelReporters . Add 8 

NewCourtGroup .NonParallelReporters . Add 9 

NewCourtGroup . NonParallelReporters . Add 10 

NewCourtGroup . NonParallelReporters . Add 11 

NewCourtGroup. NonParallelReporters .Add 12 

NewCourtGroup. NonParal lelReporters .Add 13 

M 

End Sjub 

Private Sub AddOkla ( ) 

# 3 

Dim NewJur As cJurisdiction 

D^m NewCourtGroup As cCourtGroup 

I^L$ NewCourt As c Court 

±: : 

Sei NewJur = AddJurisdiction ( "Oklahoma" , "Okla.", "ok") 
3et NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Sat NewCourt = AddCourt (NewCourtGroup, "Oklahoma Supreme Court", "", 1890, 0, False, "suprct", "supct", "set") 

IJewCourt Group . ParallelReporters . Add 1 
l^ewCourt Group . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals of Indian Territory") 

Set NewCourt = AddCourt (NewCourtGroup, "Court of Appeals of Indian Territory", "Indian Terr.", 1896, 1907, True, "indterr") 

NewCourtGroup . Paral lelReporters . Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup . NonParal lelReporters . Add 2 
NewCourtGroup. NonParal lelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Criminal Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Oklahoma Court of Criminal Appeals", "Crira. App.", 1959, 0, False, "ctcrimapp") 
Set NewCourt = AddCourt (NewCourtGroup, "Oklahoma Criminal Court of Appeals", "Crim. App.", 1908, 1958, False, "ctcrimapp") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt - AddCourt (NewCourtGroup, "Oklahoma Court of Appeals", "Ct. App.", 1971, 0, False, "appct", "app") 
NewCourtGroup . NonParallelReporters . Add 2 
End Sub 

Private Sub AddOr{) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Oregon" , "Or.") 
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ou^^^HTur, ^Vupreme Court") ^^^B ^|^r 

rtG^B^, "Oregon Supreme Court", " " ( 1853, 0, False p^Wprct" , " 



Set NewCourt Group = AddCourtGrou _^_ r 

Set NewCourt = AddCourt (NewCour tSM^i, "Oregon Supreme Court", " " ( 1853, 0, False f^^prct" , "supct", "set") 



NewCour tGroup . Paral lelRepor ters . Add 1 
NewCourtGroup. Paral lelRepor ters. Add 2 

NewCour tGroup . NonParal lelRepor ters . Add 2 
NewCour tGroup. Nonpar al lelRepor ters .Add 1 



Set NewCourtGroup = AddCourtGrouptNewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Oregon Court of Appeals", "Ct. App,", 1969, 0, False, "appct", "app") 



NewCourtGroup . Paral lelRepor ters . Add 1 
NewCourtGroup . Paral lelRepor ters .Add 2 

NewCourtGroup . NonParal lelReporter s . Add 2 
NewCourtGroup .NonParal lelRepor ters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Tax Court") 

Set NewCourt = AddCourt {NewCourtGroup, "Oregon Tax Court", "T.C.", 1962, 0, False, "taxct", "taxcourt") 



NewCourtGroup . NonParal lelReporter s . Add 1 



End Sub 



Private Sub AddPaO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCour tGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJuri sdic ti on { "Pennsylvania" , "Pa.", "perm") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Pennsylvania Supreme Court", "", 1754, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. Paral lelReporters .Add 2 

NewCourtGroup . NonParal lelRepor ters . Add 2 
NgjtfCour tGroup .NonParal lelReporters .Add 1 

Set* NewCourtGroup = AddCourtGroup (NewJur, "Superior Court") 

S\t2 NewCourt = AddCourt (NewCourtGroup, "Pennsylvania Superior Court", "Super. Ct.", 1895, 0, False) 

N^Cour tGroup . ParallelReporters . Add 1 
NewCourtGroup. Paral lelRepor ters. Add 2 

tfe^Cour tGroup . NonParal lelReporters .Add 2 
NewCour tGroup. NonParal lelRepor ters .Add 1 

Set NewCourtGroup = AddCourtGrouptNewJur, "Commonwealth Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Pennsylvania Commonwealth Court", "Commw. Ct.", 1970, 0, False) 

N^Cour tGroup . ParallelReporters . Add 1 
llf^Cour tGroup . ParallelReporters . Add 2 

B&S&Cour tGroup. NonParal lelRepor ters .Add 2 
NewCour tGroup. NonParal lelRepor ters .Add 1 

fSt NewCourtGroup = AddCourtGrouptNewJur, "Other lower courts") 

Set NewCourt = AddCourt (NewCourtGroup, "Pennsylvania other lower courts", "", 1870, 0, False) 

NewCourtGroup . NonParal lelRepor ters . Add 1 
NewCourtGroup .NonParal lelReporters .Add 3 



End Sub 



Private Sub AddRIO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "Rhode Island", "R.I.") 



Set NewCourtGroup = AddCourtGrouptNewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Rhode Island Supreme Court", " " , 1828, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParal lelRepor ters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



End Sub 



Private Sub AddSC ( > 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "South Carolina", "S.C.", "scarolina") 



Set NewCourtGroup = AddCourtGrouptNewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "South Carolina Supreme Court", "", 1868, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. Paral lelRepor ters. Add 2 
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NewCourtGroup. NonParal lelRepor t 
NewCourtGroup . NonParal lelRepor t 

Set NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "South Carolina Court of Appeals", "Ct. App.", 1983, 0, False, "appct", "app") 



NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Courts of law") 

Set NewCourt = AddCourt (NewCourtGroup, "South Carolina Courts of law", " L . " , 1783, 1868, False, "law") 
NewCourtGroup. NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur, "Courts of equity") 

Set NewCourt = AddCourt (NewCourtGroup, "South Carolina courts of equity", "Eq.", 1784, 1868, False, "equity") 
NewCourtGroup . NonParal lelRepor ter s . Add 1 

End Sub 



Private Sub AddSDO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur isdict ion ( "South Dakota", "S.D.", "sdakota") 



Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "South Dakota Supreme Court", "", 1890, 0, False, "suprct", "supct" , "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 



NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Sj§t NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court of Dakota") 

S^I NewCourt = AddCourt (NewCourtGroup, "Supreme Court of Dakota", "Dakota", 1867, 1889, True) 
\. i 

NewCourtGroup. ParallelReporters. Add 1 
N^yCourt Group. ParallelReporters. Add 2 

^^CourtGroup .NonParallelReporters .Add 2 
NewCourtGroup .NonParallelReporters .Add 1 

End 

Priv||^ Sub AddTennO 

Dim NewJur As cJurisdiction 
pixn NewCourtGroup As cCourtGroup 
B&m NewCourt As cCourt 
r§ s 

Sjgt NewJur = AddJuri sdict ion ( "Tennessee" , "Term. " , "tn") 
Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

g^t NewCourt = AddCourt (NewCourtGroup, "Tennessee Supreme Court", "", 1791, 0, False, "suprct", "supct", "set") 

r'~ 

JfdwCourtGroup . ParallelReporters .Add 1 
jfcawCourtGroup . ParallelReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup .NonParallelReporters .Add 1 



Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Tennessee Court of Appeals", "Ct. App.", 1925, 0, False, "appct", "app") 



NewCourtGroup. ParallelReporters. Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParal lelRepor ter s . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Criminal Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Tennessee Court of Criminal Appeals", "Crim. App.", 1967, 0, False, "ctcrimapp") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters .Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 



End Sub 



Private Sub AddTexO 



Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 



Set NewJur = AddJur isdict ion ( "Texas" , "Tex.", "tx") 



Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Supreme Court", "", 1840, 0, False, "suprct", "supct", "set") 



NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 
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NewCourt Group . NonParallelRe^^Mts . Add 

NewC our t G r oup . Non Pa r a 1 1 e 1 RepJ^R?'s . Add 

Set NewCourtGroup - AddCourtGroup (NewJur, "Court of Criminal Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Court of Criminal Appeals", "Crim. App.", 1891, 0, False, "ctcrimapp" ) 
Set NewCourt = AddCourt (NewCourtGroup, "Texas Court of Appeals", "Ct. App.", 1876, 0, False, "appct", "app") 

NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup . Paral lelReporters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Commission of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Commission of Appeals", "Comm'n App.", 1879, 0, False) 

NewCourtGroup. Paral lelReporters. Add 1 
NewCourtGroup. Paral lelReporters. Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Courts of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Texas Courts of Appeals", "App.", 1892, 0, False) 

NewCourtGroup. Paral lelReporters .Add 1 
NewCourtGroup. Paral lelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddUtahO 

Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Sed NewJur = AddJurisdiction ( "Utah" , "Utah", "ut") 

Se¥ NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Se£ NewCourt = AddCourt (NewCourtGroup, "Utah Supreme Court", "", 1851, 0, False, "suprct", "supct", "set") 

NewCourtGroup. Paral lelReporters. Add 1 
N^Court Group. Paral lelReporters .Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

m 

S$t NewCourtGroup = AddCourtGroup (NewJur, "Court of Appeals") 

S^E NewCourt = AddCourt (NewCourtGroup, "Utah Court of Appeals", "Ct. App.", 1987, 0, False, "appct", "app") 
NewCourtGroup. NonParallelReporters .Add 2 
End Sijl? 

Privafed Sub AddVtO 

NewJur As cJurisdiction 
DjLm NewCourtGroup As cCourtGroup 
dLa NewCourt As cCourt 

igt NewJur = AddJurisdictiont "Vermont" , "Vt.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt - AddCourt (NewCourtGroup, "Vermont Supreme Court", "", 1789, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters . Add 1 
NewCourtGroup. Paral lelReporters. Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddVaO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Virginia" , "Va.") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Virginia Supreme Court", "", 1779, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . Paral lelRepor ters . Add 2 

NewCourtGroup. NonParallelReporters .Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup ~ AddCourtGroup (NewJur, "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Virginia Court of Appeals", "Ct. App.", 1985, 0, False, "appct", "app") 

NewCourtGroup . Paral lelRepor ter s . Add 1 
NewCourtGroup. Paral lelRepor ters. Add 2 



NewCourtGroup. NonParallelReporters .Add 2 
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NewCourtGroup .Nonpar al lelRepor te^^kfld 1 
End Sub 

Private Sub AddWashO 

Dim NewJur As cJurisdiction 
Dim NewCourtGroup As cCourtGroup 
Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Washington" , "Wash.", "wn", "wa") 

Set NewCourtGroup = AddCourtGroup {NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Washington Supreme Court", "", 1854, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters .Add 2 

NewCourtGroup.NonParallelReporters.Add 2 
NewCourtGroup. NonParallelReporters. Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Washington Court of Appeals", "Ct. App.", 1969, 0, False, "appct", "app") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup .NonParallelReporters . Add 2 
NewCourtGroup. NonParallelReporters .Add 1 

End Sub 

Private Sub AddWVaO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction{ "West Virginia", "W. Va.", "wv" , "wvirginia") 
Slrtf NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court of Appeals") 

s|ji| NewCourt = AddCourt (NewCourtGroup, "West Virginia Supreme Court of Appeals", "", 1864, 0, False, "suprct", "supct", "set", "sctapp" 
* Si 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup. ParallelReporters. Add 2 

Iff 

NewCourtGroup . NonParal lelRepor ter s . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

End Su£ 

Privaifl Sub AddWisO 
s 

Q^m NewJur As cJurisdiction 

Sill NewCourtGroup As cCourtGroup 

Ifim NewCourt As cCourt 

NewJur = AddJurisdiction ( "Wisconsin" , "Wis.", "wi") 

$et NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Wisconsin Supreme Court", "", 1839, 0, False, "suprct", "supct", "set") 

NewCourtGroup. ParallelReporters .Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParallelReporters . Add 2 
NewCourtGroup . NonParallelReporters . Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur , "Court of Appeals") 

Set NewCourt = AddCourt (NewCourtGroup, "Wisconsin Court of Appeals", "Ct. App.", 1978, 0, False, "appct", "app") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup. NonParallelReporters. Add 2 
NewCourtGroup. NonParallelReporters. Add 1 

End Sub 

Private Sub AddWyoO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Wyoming" , "Wyo.", "wy") 

Set NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Wyoming Supreme Court", "", 1870, 0, False, "suprct", "supct", "set") 

NewCourtGroup . ParallelReporters . Add 1 
NewCourtGroup . ParallelReporters . Add 2 

NewCourtGroup . NonParal lelRepor ters . Add 2 
NewCourtGroup . NonParal lelRepor ters . Add 1 

End Sub 




private Sub AddAmSamoa ( ) 



mPopulateJurisdictions -22 

15? 



Dim NewJur As cJurisdiction 
Dim NewCourtGroup As cCourtGrou| 
Dim NewCourt As cCourt 



Set NewJur = AddJurisdiction ( "American Samoa", "Am. Samoa") 

Set NewCourtGroup = AddCourtGroup {NewJur, "High Court of American Samoa") 

Set NewCourt = AddCourt (NewCourtGroup, "High Court of American Samoa", "", 1900, 0, False, "highct", "highcourt") 
NewCourtGroup .NonParallelReporters .Add 1 

End Sub 

Private Sub AddCZ O 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Canal Zone", "C.Z.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "United States District Court for the Eastern District of Louisiana") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Court for the Eastern District of Louisiana", "E.D. La.", 1982, 0, True) 

NewCourtGroup .NonParallelReporters .Add 3 

Set NewCourtGroup = AddCourtGroup (NewJur , "United States District Court for the District of the Canal Zone") 

Set NewCourt = AddCourt (NewCourtGroup, "U.S. District Court for the District of the Canal Zone", "D.C.Z.", 1846, 1982, True) 

NewCourtGroup. NonParallelReporters .Add 3 

End Sub 

Private Sub AddGuamO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Guam" , "Guam") 

Set NewCourtGroup = AddCourtGroup (NewJur , "District Court of Guam, Appellate Division") 

s iB NewCourt = AddCourt (NewCourtGroup , "District Court of Guam, Appellate Division", "D. Guam App. Div.", 1951, 0, True) 

NewCourtGroup. NonParallelReporters .Add 3 
NewCourtGroup. NonParallelReporters .Add 4 

End 3ulJ 

Priva^di Sub AddNavajoO 

Dim NewJur As cJurisdiction 

NewCourtGroup As cCourtGroup 
D^ua NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Navajo Nation", "Navajo", "navajonat") 
Sje| NewCourtGroup = AddCourtGroup (NewJur , "Supreme Court") 

S£§t NewCourt = AddCourt (NewCourtGroup, "Navajo Nation Supreme Court", "", 1969, 0, False, "suprct", "supct", "set") 
SewCourtGroup .NonParallelReporters .Add 1 

§e£ NewCourtGroup = AddCourtGroup (NewJur, "District Court") 

%St NewCourt = AddCourt (NewCourtGroup, "Navajo Nation District Court", "D. Ct.", 1969, 0, False, "distct") 
ifewCourtGroup . NonParallelReporters .Add 1 

End Sub 

Private Sub AddNMarK) 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction ( "Northern Mariana Islands", "N. Mar. I.", "nmi") 
Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Northern Mariana Islands Supreme Court", "", 1989, 0, False, "suprct", "supct", "set") 
NewCourtGroup. NonParallelReporters .Add 1 

Set NewCourtGroup = AddCourtGroup (NewJur, "District Court") 

Set NewCourt = AddCourt (NewCourtGroup, "District Court for the Northern Mariana Islands, Trial Division", "D . N . Mar. I.", 1979, 0, Tru 

e) 

Set NewCourt = AddCourt (NewCourtGroup, "District Court for the Northern Mariana Islands, Appellate Division", "D. N. Mar. I. App. Div." 
, 1979, 0, True) 

Set NewCourt = AddCourt (NewCourtGroup, "Northern Mariana Islands Commonwealth Superior Court", "Commw. Super. Ct.", 1979, 0, False, "su 
perct " ) 

Set NewCourt = AddCourt (NewCourtGroup, "Northern Mariana Islands Commonwealth Trial Court", "Commw. Trial Ct.", 1979, 0, False, "trialc 

t") 

NewCourtGroup. NonParallelReporters .Add 1 
End Sub 

Private Sub AddPRO 

Dim NewJur As cJurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction { "Puerto Rico", "P.R.") 

Set NewCourtGroup = AddCourtGroup (NewJur, "Supreme Court") 

Set NewCourt = AddCourt (NewCourtGroup, "Puerto Rico Supreme Court", " " , 1899, 0, False, "suprct", "supct", "set") 
NewCourtGroup . Paral lelRepor ter s . Add 1 
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NewCourtGroup . Paral lelRepor ters 
End Sub 

Private Sub AddVIO 



Dim NewJur As c Jurisdiction 

Dim NewCourtGroup As cCourtGroup 

Dim NewCourt As cCourt 

Set NewJur = AddJurisdiction( "Virgin Islands", "V.I.") 
Set NewCourtGroup = AddCourtGroup (NewJur, "All courts") 

Set NewCourt = AddCourt (NewCourtGroup, "Virgin Islands, all courts", " " , 1917, 0, False) 
NewCourtGroup . NonParal lelRepor ters . Add 1 



End Sub 



Private Function AddJurisdiction (FullName As String, AbrvName As String, ParamArray AliasesO) As cJurisdiction 
Dim varAliases As Variant 



Set AddJurisdiction = New cJurisdiction 
With AddJurisdiction 

.FullName = FullName 

.AbrvName = AbrvName 
End With 

varAliases = AliasesO 

mbc Jurisdictions .Add AddJurisdiction, varAliases 
End Function 

Private Function AddCourtGroup (Parent Jurisdiction As cJurisdiction, ByVal FullName As String) As cCourtGroup 

Set AddCourtGroup = New cCourtGroup 
W|]li AddCourtGroup 

.FullName = FullName 
= 4y Set .Parent = ParentJurisdiction 
Bag With 

E*ax-entJurisdiction.CourtGroups. Add AddCourtGroup, FullName 
mbcJurisdictions.AllCourtGroups . Add AddCourtGroup 

r ; a 
=sr z 

End Eunction 

Privaif§ Function AddCourt (ByRef CourtGroup As cCourtGroup, ByRef FullName As String, ByRef AbrvName As String, _ 
ByRefSearStart As Long, ByRef YearEnd As Long, ByRef Jurisdictionlmplicit As Boolean, ParamArray AliasesO) As cCourt 

Dim varAliases As Variant 

^et AddCourt = New cCourt 
w|jh AddCourt 
'xxl -FullName = FullName 
1=1 .AbrvName = AbrvName 
.YearStart = YearStart 

.Jurisdictionlmplicit = Jurisdictionlmplicit 
llj If YearEnd > 0 Then .YearEnd = YearEnd Else .YearEnd = 9999 
S " B * Set .CourtGroup = CourtGroup 

Set .Parent = CourtGroup. Parent 
End With 



varAliases = AliasesO 

AddCourt . Parent . Courts .Add AddCourt, varAliases 
mbcJurisdictions .AllCourts . Add AddCourt, varAliases 



End Function 



cAutoSubs - 1 

Option Explicit 

Public Sub BCAutoExecO 

Call InsertMenuItemt "Tools" , "JllueCheck Options...", "BlueCheckOptions" , True) 
Call InsertMenuItemt "Tools" , "&BlueCheck" , "BlueCheck", False) 

End Sub 

Private Sub InsertMenultem(MenuName As String, Menultem As String, OnActionName As String, DividerAfter As Boolean) 

Dim cbmMenuBar As CommandBar Popup 
Dim cbbNewItem As CommandBarButton 
Dim cbbFirstltem As CommandBarButton 
Dim cbcExistingltem As CommandBarControl 

■ If the menu item already exists, then exit the sub. 

Set cbcExistingltem = Word. CommandBar s. FindControl (Tag: =Menult em) 
If Not cbcExistingltem Is Nothing Then Exit Sub 

■ If a divider bar should be added, then set the first item in the menu to a 
' new group so that a divider will appear before it. 

Set cbmMenuBar = Word. CommandBars ( "Menu Bar "). Controls (MenuName) 

If DividerAfter = True Then 

Set cbbFirstltem = cbmMenuBar . Controls ( 1) 

cbbFirstltem. BeginGroup = True 
End If 

' Add the menu item. 

Set cbbNewItem = cbmMenuBar . Controls. Add (Type: =msoControlBut ton, Before :=1, temporary: =True) 
With cbbNewItem 

.Caption = Menultem 

.Tag = Menultem 

.Enabled = True 

.OnAction = OnActionName 
Eh3 With 

End Su±5 

Public~=Sub BCAutoCloseO 

Cail CloseAllHiddenDocuments 

Gafl RemoveMenuItem( "BlueCheck Options...") 

Qail RemoveMenuItem( "&BlueCheck" ) 

End stlb 

Publi^ Sub CloseAllHiddenDocuments ( ) 
I?im mswDocument As Word . Document 

f Each mswDocument In Word. Documents 
is: If mswDocument .Act iveWindow. Visible = False Then 
i-i mswDocument .Close wdDoNotSaveChanges 

End If 
Next mswDocument 

jirs. 

' End |ub 

ass 

Private Sub RemoveMenuItem( ItemToRemove As String) 
Dim cbcExistingltem As CommandBarControl 

Set cbcExistingltem = CommandBar s .FindControl (Tag: = ItemToRemove) 
If Not cbcExistingltem Is Nothing Then 

cbcExistingltem. Delete 
End If 




End Sub 
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' — NOTE: "BlueCheck" and "BCWordl^^^^ce"^^^: be selected in the References dial 
Private mBlueCheck As New cBlueChec* 
Public Sub AutoExecO 

Call BCAutoExec 
End Sub 

Public Sub BlueCheck () 

Call mBlueCheck. Start 
Beep 

End Sub 

Public Sub BlueCheckOptionsO 

Call mBlueCheck. ShowOptions 
End Sub 
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